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PREFACE 



The SYStem/360 Basic Operating System 
Report Program Generator (rpg) is a 
problem-oriented language designed to pro- 
vide users with an efficient, easy-to-use 
technique for generating programs that can: 

1. Obtain data records from single- or 
multiple-input files, 

2. Perform calculations on data taken from 
input records or RPG literals, 

3. Write printed reports, 

4. Use Table Lookup, 

5. Exit to a user's subroutine written in 
a language other than RPG, 



6. Branch within the calculations, and 



7. Sequence-check input records - 



RPG uses a set of specifications sheets 
on which the user makes entries- The forms 
are simple, and the headings on the sheets 
are largely self-explanatory. 

Although many reports use only one input 
file, RPG can combine data from multiple 
input files to create a report. The output 
may be a single report, or it may be sever- 
al reports created simultaneously on dif- 
ferent devices. 



SIMPLIFIED TERMINOLOGY 

The titles of some IBM programming systems have been simplified 
as shown here: 

former: IBM System/360 Basic Operating System. ... (8K Disk) 
new: IBM System/360 Basic Operating System 

former: IBM System/360 Basic Operating System. ... (16K Tape) 
new: IBM System/360 Tape Operating System 

former: IBM System/360 Basic Operating System. ... (16K Disk) 
new: IBM System/360 Disk Operating System 



Major Revision, May 1966 

This edition, C24-3387-3, is a major revision of and obsoletes 
Form C24-3387-2, and Technical Newsletters N24-5023 and N24-5037 
Changes are designated in three ways: 

1. A vertical line appears at the left of affected text where 
only a part of the page has been changed. 

2. A dot (•) appears at the left of the page number where the 
complete page should be reviewed. 

3. A dot (•) appears at the left of the title of each figure that 
has been chnaged. 



Copies of this and other IBM publications can be obtained through IBM Branch 
Offices. A form has been provided at the back of this publication for reader^ 
comments. If the form has been detached, comments may be directed to- 
IBM Programming Publications, Endicott, New York 13760. 

© by International Business Machines Corporation 1965 
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IBM SYSTEM/360 BASIC OPERATING SYSTEM REPORT PROGRAM GENERATOR SPECIFICATIONS 



RPG operates under control of the IBM 
System/360 Basic Operating System. The 
Basic Operating System provides the RPG 
compiler with input and output services. 
Object programs generated by the RPG ccan- 
piler also operate uiwier operating-system 
control and depend on it for similar servi- 
ces. 



In data processing, the machine- language 
instructions (created in the first 
function) are combined with the user input- 
data files, and both are processed through 
the system to produce the desired reports 
or output files. 



RPG supports the minimum configuration 
required by the Basic Operating System. 
The Decimal Arithmetic feature is required 
for RPG. 



COMPATIBILITY OF BASIC OPERATING SYSTEM 
RPG WITH MODEL 20 RPG OR WITH SYSTEM/360 
BASIC PROGRAMMING SUPPORT RPG 



The RPG source language is upward- 
conqpatible. The Basic Operating System 
Report Program Generator can compile a 
Model 20 RPG source program, or a Basic 
Programming Support RPG source program that 
adheres to its language specifications and 
con5)atibility statenents. The object 
program will produce equivalent results, if 
the same input/output facilities exist. 

• The File Description Specification 
sheet of the Basic Operating System RPG 
may require additional information 
(record length and overflow 
indicators ) . 

• The control card of the Model 20 RPG or 
Basic Programming Support RPG programs 
nftist be modified before the object 
program can be generated by the Basic 
Operating System RPG. 



FUNCTION OF RPG 



When RPG is used, the IBM System/ 360 
actually perfornas two separate functions: 

1. Program-generating, and 

2. Data processing. 

In prog ram- generating, program specifi- 
cations are defined by the user to produce 
machine-language instructions. Storage 
areas are automatically assigned, constants 
or other reference factors are included, 
and linkages to routines are produced for 
checking, for input/output operations, and 
for other functions. 



USING RPG 



The preparation of a report by RPG consists 
of the general operations illustrated in 
Figure 1 and described as follows: 

1. The programmer must evaluate the report 
requirements to determine the format of 
the input files and the appearance of 
the finished report. For example, he 
naist know what fields in the input 
files are to be used, what kind of 
calculations are to take place, the 
location of the data in the output 
records, and the number and the kind of 
totals that must be acciimulated. More 
specific information regarding the 
evaluation of report requirements is 
described in Problem Definition . 

2. After the programmer has evaluated the 
requirements of the report, he provides 
the same information to the RPG 
prograim. 

He must describe his input (record 
layout, fields used, etc.) by making 
entries on an Input Specification 
sheet. 

He must state what processing is to 
be done (add, subtract, mxiltiply) by 
entries on a Calculation Specification 
sheet. 

He must state how the finished 
report is to look (printing positions, 
carriage control, etc.) by making 
entries on the Output-Format Specifi- 
cation sheet. 

He must describe all files used by 
the object program (input files, output 
files, table files, etc.) by making 
entries on the File Description Speci- 
fication sheet. 

3. After the specifications have been 
written on the appropriate forms, cards 
au:e keypunched with the data from the 
forms . 
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Figure 1. Producing Reports Using the RPG 
Program 



These ptinched cards (called a source 
deck) are combined with the RPG Proc- 
essor control card and the Basic Oper- 
ating System Job Control statements. 
The source deck and the control cards 
are supplied to an input device and are 
processed under control of the Basic 
Operating System. At the end of this 
processing run (known as a generating 
or compiling run ) , a program capable of 
preparing the report specified by the 
programmer has been produced. This 
program (known as an object program ) 
contains all of the computer instruc- 
tions and linkages to the Control Sys- 
tem necessary to prepare the desired 
report . 



5. The input files can then be read into 
the system, and processing of the pro- 
gram will begin. This is known as the 
object run . 



At the end of the object run, the 
report has been prepared and any other 
functions, such as file updating, are 
completed. Through facilities provided 
by the Basic Operating System, the 
object program can be retained for 
later runs without reccwipilation. 



MACHINE FEATURES REQUIRED 
PROGRAM GENERATION 

1. 8K bytes of main storage (the Supervisor 
must not exceed 4K) 

2. One of the following: 

IBM 1442 Card Read-P\ahch 
IBM 2501 Card Reader 
IBM 2520 Card Read- Punch 
IBM 254 Card Read- Punch 

3. One of the following: 

IBM 1403 Printer 

IBM 1404 Printer (continuous forms 
operation only) 

IBM 1443 Printer 

4. IBM 2311 Disk Storage Drive 

5. Standard Instruction Set 

6. Decimal Arithmetic Feature 

OBJECT PROGRAM EXECUTION 

1. 8K lytes of main storage 

2. I/O units as requested by the specifi- 
cations 

3. Standard Instruction Set 

4. Decimal Arithn^tic Feature 

5. IBM 2311 Disk Storage Drive 

ADDITIONAL MACHINE FEATURES SUPPORTED 
PROGRAM GENERATION 

1. 16K, 32K, or 64K bytes of main storage. 

2. One IBM 2400-series Magnetic Tape Unit 
(7- or 9-track) (for source program 
input only) . 



OBJECT PROGRAM EXECUTION Note : The object program produced by 

8K BOS RPG does not have the capability 
of running with a non-resident supervi- 

1. 16K, 32K, or 6UK bytes of main storage. sor. 

2. IBM 2311 Disk Storage Drive 

For usage of tape units at either com- 

3. IBM 2400-serie3 Magnetic Tape Unit (7- pile time or object time, refer to Appendix 
or 9-track). If a 7-track tape unit is H of the programmer's guide publication 
used, the Data Conversion feature is listed on the front cover of this publica- 
required. tion. 
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FUNDAMENTALS OF RPG PROGRAMMING 



This section introduces some of the basic 
RPG functions. These functions are consid- 
ered basic because they are probably used 
in the roost typical reports produced by 
RPG, and because tliey depend on a single 
sequential input file only. They are also 
related to the functions ccxnmonly performed 
with conventional punched- card equipment. 

Although' RPG programs can process files 
contained on magnetic tape or direct-access 
storage devices, only card-input files are 
used for this introduction to RPG. Pro- 
grammers familiar with the basic concepts 
of RPG may omit this section and concen- 
trate on the detailed specifications des- 
criptions contained in the section RPG 
Specification Sheets of this publication. 

Because of the numerous fields on the 
five specification sheets, it may appear 
that writing RPG specifications is a diffi- 
cult task. However, few programs use all 
the specifications, and some may require 
entries on only one or two lines of the 
sheets . 

At the end of the discussion of basic 
RPG functions, a simple file-to-file list- 
ing application is used to illustrate how 
the specification sheets are related'. 



5. Total calculations. 

6. Detail and total printing. 

7. Group printing. 

8. Group indication. 

9. overflow printing. 

10. Testing for zero, plus and minus 
balance. 

11. Using field indicators. 

12. Comparing. 

13. Multiplying and dividing. 

14. Sequence-checking. 



DESCRIBING A RECORD AND ITS FIELDS TO THE 
SYSTEM 



Entries on the Input Specification sheet 
describe the data records and the fields to 
be read into the system. 



FUNCTIONS DESCRIBED 

Fourteen of the most basic RPG functions 
are described in this section: 

1. Describing a record and its fields to 
the system. 

2. Adding and subtracting (cross footing).. 

3. Detail printing. 

4. Establishing control fields. 



Problem 



A detail labor file contains card records 
as shown in Figure 2. Three fields (A, B, 
and C) are to be read frcMn each card into 
main storage. Field A is contained in 
columns 46-50; Field B is contained in 
columns 56-60; and Field C is contained in 
columns 66-70 of each record. The file 
that contains the records and the fields 
within each record are described on the 
Input Specification sheet. 



DIV 

0000 

12 3 4 

nil 

2222 
3333 
4444 
5555 
0666 
7777 
8888 
9999 

< 2 3 4 



DEPT 

0000 
5 6 7 1 
1111 

2 2 22 
3333 
4444 
5555 
6666 
7777 



9999 

5 6 7 8 
BM SOB 



EMP 

NO. 

000000 

9 10 It 12 13 14 
111111 

222222 
333333 
444444 
555555 
666666 
777777 



999999 

9 10 II 12 13 14 



EMPLOYEE 
NAME 

00000000000000 

15 19 17 II 19 20 21 22 23 24 25 It 27 21 
11111111111111 

22222222222222 
33333333333333 
44444444444444 
55555555555555 
66666666666666 
77777777777777 
88888888888888 
99999999999999 

IS 16 17 19 19 20 21 22 23 24 25 26 27 29 



000000 

29 30 31 32 33 34 
111111 

222222 
333333 
4 4444 4 
555555 
666666 
777777 
888888 
999999 

29 30 31 32 33 



0000000000 

3937393940 41 42434445 
1111111111 

2222222222 
3333333333 
4444444444 
5555555555 
6666666666 
7777777777 
8888888888 
9999999999 

39 37 38 39 40 41 42 43 44 4S 



00000 

4< 47 41 49 so 
11111 

222 22 
33333 
44444 
55555 
66666 
77777 
88888 
99999 

4C 47 41 49 



ooooo 

51 52 S3 54 
11111 

22222 
33333 
44444 
55555 
66666 
77777 
88888 
99999 

5152 53 54 



OOOOO 

Se 57 59 59 60 
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33333 
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55555 
66666 
77777 
88888 
99999 

56 57 5199 



OOOOO 

91 62 63 94 95 
11111 

22222 
3 3 3 3 3 
44444 
55555 
66666 
77777 
88888 
99999 

61 (2 63 64 65 



OOOOO 

66 97 68 69 70 
11111 
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33333 
44444 
5 5 5 5 5 
66666 
77777 
88888 
99999 

66 67 61 63 70 



000 

72 73 74 
1 1 1 
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7 77 
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OOOOO 

75 76 77 79 73 
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33333 
44444 
55555 
66666 
77777 
88888 



99999999 

72 73 74 7S 76 77 78 79(80 



Figure 2. Input Cards for Detail Labor File 



Each card that contains fields A, B, and 
C is identified by two distinct attributes. 
They must contain a digit 5 in column 35 
and no 11-zone in column 80. When these 
two conditions exist in the card record, 
the record is valid (that is, it contains 
fields A, B, and C) . 



SPECIFICATIONS 



The entries on the Input Specification 
sheet (Figure 3) that apply to this problem 
are circled and identified by numbers to 



reference the fields in text. The remain- 
ing fields on the form are described later. 

1. Each file of cards must be given a 
name. In this example the input deck 
of cards represents a detail labor file 
(Figure 2) . A file name can be used to 
describe only one file. 

2. If several types of cards exist in a 
file, each card nnist be identified by 
its particular card code. In this 
example, each card read by the system 
must contain a 5-punch in column 35 and 
no 11-zone (minus) punch in column 80. 
These identifying codes are placed in 
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Figure 3. Input Specification Sheet 
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the fields called Record Identification 
Codes (columns 21-41 of the form). 
These fields provide for three iden- 
tifying codes; however, more codes can 
be indicated (see Record Identification 
Codes) . 



In this example the card codes are 
specified by writing a 5^ in Character 
and a 35 in Position for the first 
code; and by writing an ^ in Position 
and a minus in Character , and an N in 
Not for the second code. The field on 
the form called C/ Z/D indicates how the 
card column containing the card code is 
to be ccxnpared: D = digit portion 
only, Z = zone portion only, or C = all 
portions of the card column. 



After all the identification codes 
are established, the programmer assigns 
a two-digit number (from 01 to 99) to 
the card type identified. This code, 
known as a resulting indicator (columns 
19-20 of the form) , is used to refer to 
this specific card type on other speci- 
fication sheets. Using this code redu- 
ces the number of entries required on 
other specification forms, as will be 
seen later. 



If the input card is to be selected 
into a stacker (other than the one into 
which it would normally be selected) , 
the stacker number is written in Stack- 
er Select (Column 42). 



Each field of the card to be read must 
be defined as shown on the lines fol- 
lowing the record- identification line. 
The specifications shown in this exam- 
ple locate the data from the input 
record and place it in fields A, B and 
C (FLDA, FLDB, and FLDC) in three sep- 
arate locations in main storage. 



Once the card columns of the field 
have been specified and the appropriate 
field name has been defined for the 
field, other references to this field 
are made by using its field name, rath- 
er than writing down the specific card 
columns each time. 



Although the input illustrated in 
Figure 3 is simplified, the entries 
shown will cause the contents of fields 
A, B, and C from the card to be read 
into the system during the processing 
of the object program. Calculations to 
be made from the input data are written 
on the Calculation Specification sheet. 



ADDITION AND SUBTRACTION 



Problem 



In this problem, fields A, B, and C frcson 
the previous example are used to calculate 
a new field. Field D. The calculation 
A + B - C = D is to be performed. This 
operation is sometimes referred to as 
crossfpoting . The form required for this 
operation is the Calculation Specification 
sheet. 



Spec if i ca ti ons 



Figure 4 shows the required oitries using 
the fields from the previous example. The 
first line of the Calculation Specification 
sheet tells the object program to add the 
contents of FLDB to the contents of FLDA 
and place the result in FLDD. 

1. The 14 in Indicators defines the card 
type for which the calculations are to 
be performed, as assigned on the Input 
Specification sheet in Resulting Indi- 
cator (Figure 3) . 

2. The card columns for FLDA and FLDB were 
defined by entries in columns 46-47 and 
50-51 on the input forms and need not 
be specified again. The names assigned 
in columns 53-56 will be used to refer 
to the fields. 

3. The result field FLDD is defined for 
the program by merely writing the name 
FLDD in Result Field (columns 43-4 8) 
and indicating in Field Length (columns 
49-51) the number of positions that 
must be set aside for this field in the 
object program. Just as in the case of 
FLDA and FLDB, which were defined on 
the input form, the name FLDD can now 
be used in other calculation operations 
or used in defining output specifi- 
cations. 

Note: The result of A ♦ B is not 
placed back into FLDA. To do this 
would destroy the original contents 
of FLDA. In this example it is 
necessary to save the original value 
of FLDA so that it can be printed on 
an output report. 

The second line in Figure 4 causes 
the object program to subtract the 
contents of FIDC from the result just 
previously attained in FLDD, and to 
store the new result back into FLDD. 
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Figure U. Calculation Specification Sheet 



DECIMAL POINT LOCATION: In operations 
involving numbers containing decimal posi- 
tions, the number of decimal positions in 
each of the fields is frequently not the 
same. When the number of decimal positions 
is not the same in both factors in an 
arithmetic operation, shifting the factors 
to align the decimal point is usually 
required. 



RPG automatically shifts the factors. 
The programmer must indicate the number of 
decimal positions contained in each factor 
used in calculations, and the number of 
decimal positions required in the result. 
If a field is to have arithmetic operations 
performed on it, the decimal positions must 
be specified. A zero is coded for no deci- 
nal positions (see Figure U). Assume that 
the fields in Figure 3 have decimal posi- 
tions as indicated under Decimal Position 
(column 52) in the following example: 



r T T 1 

j Field I Decimal | Field 

I From j To j Positions j Name 

I 46 I 50 I I FLDA 

I 56 I 60 I 2 I FLDB 

I 66 1 70 I 3 I FLDC 



j Decimal j Contained j Actual | 
Field I Positions j In cards j Value j 

A I I 00126 I 126. I 

B I 2 I 01123 j 11.23 I 

C I 3 I 04264 I U.264I 

The programmer must indicate the number 
of decimal positions required in the 
result. 

The calculation A ♦ B - C = D would 
result in the values being shifted like 
this: 

126.000 = A 

♦11.230 = B 
137.230 

- 4.264 = C 

132.966 = D 

(The result field has three decimal 
positions) . 

The result 132.9 66 is stored as the 
value of the field called D. Entering the 
decimal positions on the input sheet and 
the calculation sheet enables the factors 
to be shifted automatically. 



A set of values for these fields might 
appeeu: to the program as follows: 



DETAIL PRINTING 



Detail printing is the printing of informa- 
tion obtained from each record as it is 
read. 
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Figure 5. Output- Format Specification Sheet 



Problem 



This problem illustrates how input fields 
FLDA, FLDB, and FIDC, and the calculated 
result, FLDD, can be specified for listing. 



Specifications 



Figure 5 shows the output specifications 
required. The numbers in the following 
list refer to items circled in Figure 5. 

1. The output listing must be assigned its 
own specific file name. In this exam- 
ple it has been called DAILYRPT . 

The D in Type H/D/T indicates that 
the line being printed is a detail 
line. That is, it contains information 
from the record just read. (The other 
possible entries, H and T, indicating 
heading lines and total lines, are 
described later.) 

The 2 in Space After provides a 
double-spaced listir^. (There is one 
blank line after each printed line.) 

2. The 14 in Output Indicators identifies 
the input record type to be printed. 

3. Each field to be printed must be speci- 
fied under the heading Field Name . The 
Z in Zero Suppress means that zeros to 
the left of significant digits are not 
printed. (For example, the value 



stored in FLDA (00126) is printed as 
126.) 

The printing positions for data to 
be printed on the output report are 
specified in End Position in Output 
Record (Columns U0-U3). The programmer 
has to indicate only the last printing 
position of each field (low- order or 
rightmost position). The length of 
each field has already been established 
for the program as part of the input 
specifications, or established in the 
result field of the calculations speci- 
fications. 

When preparing a simple listing such as 
the one in this example, the programmer 
would probably select printing positions of 
the output unit based upon the number of 
positions in each field plus a number of 
positions as spaces between fields. 

More elaborate reports are laid out on a 
printer form in advance of the program 
writing function. Usually this indicates 
both the location on the form where data is 
to be printed and the source of the data 
(the card columns of the input data or the 
names of data fields developed in the 
program) . This is normally a f unct ion of 
job definition, a subject that is discussed 
later under Problem Definition . 

Figures 3, *♦, and 5 illustrate how to 
read data into the system, how calculations 
can be performed upon the data, and how the 
original data and the data developed in the 
program can be printed. The exan^les so 
far have shown the items necessary to pre- 
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pare a report. A significant item not yet 
described is how to specify a control 
field. 



CONTROL FIELDS 



A control field is a field containing 
information to be conqpared from record to 
record. A control breadc occurs when the 
information in the control field changes. 
A control level establishes the relative 
importance of the control fields. 



Problem 



This example shows how to specify three 
levels of control. 



Specifications 



Figure 6 shows the input data from Figure 3 
with the addition of the appropriate con- 
trol data and employee name (the items 
inside the circle) . In this example there 
are three levels of totals: the lowest 
level is employee number (EMPNO), the next 
is department (DEPT) , and the highest level 
is division (DIVSON) . These levels are 
designated LI, L2, and L3, respectively. 



(Because as many as nine levels of totals 
are possible in RPG, the common terms of 
minor, intermediate , and major totals are 
inadequate. ) 

To designate a control field and to 
establish a level of control, enter the 
card columns of the field in Field Loca- 
tion , enter an appropriate name in Field 
Name , and enter the correct control level 
(Li, L2, . . . L9) in Control Level . 

In the example (Figure 2 and 6) the 
sequence of the control fields (left to 
right) in the card is the same as the 
sequence of the control levels. The con- 
trol fields, however, could have been in 
any location on the card, and the specifi- 
cations for them could have been in any 
sequence on the form, as illxastrated in the 
following example. 

The reading of the employee- name field 
(fifth line of the sheet) is also included 
as part of this example, but it is not 
related to controls. It is shown here to 
indicate another aspect of the decimal- 
positions column of the Input Specification 
sheet. When a numeric field is specified 
^^ Field Location , any digit (0 to 9) 
placed in Decimal Position causes zone 
punches in all positions of the field 
(except the units position) to be removed. 

Therefore, when an alphabetic field is 
specified. Decimal Position should be left 
blank to permit the zone punches of the 
alphabetic field to be read into the sys- 
tem. 
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Figure 6. Specifying control Levels on the Input Sheet 
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Figure 7. Specifying control Levels on the Calculation Sheet 



TOTAL CALCULATIONS 



Total calculations are performed after a 
specified control break has occurred. When 
a control break occurs, special operations 
are normally performed before processing 
the record that caused the control break. 
These operations are called total opera- 
tions. 



Problem 



This example illustrates how totals can be 
accumulated at each control level. 



Specif ica tions 



Figure 7 contains the data shovm in Figure 
4. The additional information for this 
example is circled. During processing of 
the object program, lines 1 and 2 cause the 
operation A ♦ B - C = D. The third line 
adds the result, contained in FIDD, from 
each detail card to a field called TOTE . 
Therefore, TOTE is the accumulated amount 
for each employee group. The first three 
specification lines are performed in the 
object program each time a detail card is 
read (see Figure 7, Indicator 14). 

When the level-1 (LI) control break 
occurs (a card from the next employee group 
has been sensed) , specif i cation- line 4 adds 



the total of TOTE accumulated from each 
detail card into a field called TOTF. TOTF 
is used to accumulate the total employee 
group for each department. 



When the level- 2 control break occurs, 
TOTF is added into TOTG. 

When the level- 3 control break occurs, 
TOTG (which represents the accumulated 
amounts for each division) is added into 
FINTOT. 

Accumulating totals at each control- 
break level is normally done when the 
corresponding totals are printed on an 
output report. 

Note ; In System/360 RPG (as in IBM 
punched-card data processing equipment) 
a control break at one level forces 
control breaks for all lower levels. 



DETAIL AND TOTAL PRINTING 



Problem 



This example shows the specifications nec- 
essary to print the three controlling 
fields, the name, the accumulated amount in 
field D, the three accumulated totals, and 
the final total at the end of the object- 
program report. 



in 
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Figure 8. Specifications on the Output-Format Sheet 



Specifications 



printed line to make the report 
easier to read. 



Figure 8 illustrates the specifications 
required for the report shown in Figure 9. 
The following numbers refer to the items 
circled in Figure 8: 

1. This information is similar to the 
specifications in the previous example 
in Figure 5. 

2. The data fields DIVSON, DEPT, EMPNO, 
NAME, and FLDD, are specified for 
printing. 

3. The specifications to print the total 
for the first control level shown on 
lines 7 and 8 are: 

a. The T in H/D/T (column 15) indicates 
that the line is a total line. A 
total line is an operation caused by 
a control brecUc. The input record 
that causes the control break cannot 
contribute data to the accumulated 
totals or to the total line. Totals 
accumulated before a control break 
are printed. 

b. A3 in Space After (column 18) pro- 
vides two blank lines after each 



c. The LI in Output Indicators (columns 
23-24) indicates that the line is to 
be printed only on a level-1 control 
break. 



d. The field to be printed (TOTE) is 
indicated under Field Name (columns 
32-37). 



e. The Z in Zero Suppress (column 38) 
indicates that zeros to the left of 
significant digits are not to be 
printed. 

f . The B in Blank After (column 39) 
causes the main-storage positions 
containing field TOTE to be set to 
zeros after the total is printed. 
This is done so the total for one 
group is not added to the total of 
the previous group. 

The specifications to print the 
second and third control levels are 
essentially the same as those for 
the first level. 
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Figure 9. Detailed Printed Report 

4. The specifications for printing the 
final total contain the code I^ (Last 
Record) in Output Indicators (columns 
23-24). In this example, the indicator 



LR is turned on automatically by the 
program when the last card of a file 
has been sensed. This indicator is 
used to cause the final total to be 
printed. 



GROOP PRINTING 



In group-printing operations only one line 
is printed for each group of detail cards. 
This line usually contains the control 
fields and the totals of the quantity 
fields. 

An example of a group- printed report is 
shown in Figure 10. 
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Figure 10. Group-Printed Report 

The detail- printed report specification 
in Figure 8 could be altered to provide a 
group- printed report as illustrated by the 
specifications in Figure 11. 



GROUP INDICATION 



In group- indication operations each detail 
card is processed; however, only the con- 
trol fields that identify the specific 
detail card are printed. An example of a 
group- indication report is illustrated in 
Figure 12. In this example the employee 
name and number are printed for each con- 
trol change. The fields DIVSON and DEPT 
are printed only when there is a control 
change for the division and department 
fields, respectively. 
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Figure 11. Specifying a Group- Printed Report 
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Figure 13 illustrates how the detail- 
printed report specifications in Figure 11 
could be altered to specify a group- 
indication report. 



Figure 12. Example of a Group- Indication 
Report 
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Figure 13. Specifying a Group- Indication Report 



OVERFLOW PRINTING 



Specifications 



Overflow printing, another function used in Figure lU illxistrates the output specifi- 
preparing reports, can be performed in RPG. cations required for this operation. The 



Overflow is the sensing of channel 12 in 
the printer carriage control tape. 



Problem 



numbers in the following list refer to the 
circled items in Figure I'J. The File Name 
(columns 7~1U) of DAILYRPT is the same; 
adding overflow headings does not change 
it. 



This example shows the additional 
specifications necessary to print eight 
column headings at the top of each printed 
form. A heading- line is a line that con- 
tains information from an input record or 
contains constants. 
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Figure 14 Printing Heading Lines 



1. On the first line of the form, the H in 
H/D/T {column 15) indicates that the 
line to be printed is a heading line. 



The actual information is contained 
within single quote signs. 



2. 



The 2 in Space After (column 18) 
provides a blank line after each print- 
ed line. 

The 01 in Skip Before (columns 
19-20) cciuses the form to skip to chan- 
nel 01 in the carriage control tape. 
This positions the form for printing of 
the overflow heading line. 

The OF in Output Indicators (columns 
23-24) caus^ the heading line to be 
printed each time there is a form over- 
flow on the printer. 

On the second line of the form, the 
letters OR indicate a second condition 
can cause the heading line to print. 
The second condition, indicated by IP 
(first page) in Output Indicators , 
causes the heading line to be printed 
on the first page. This condition is 
necessary to print the heading on the 
first page of the report, because the 
overflow condition does not occur until 
after the first page of the report has 
been printed. 

The entries on lines 3-10 of Figure 14 
specify the actual information or con- 
stants to be printed on the report. 



TESTING FOR ZERO, PLUS, AND MINUS BALANCE 



Specifications are executed in the object 
program in the same sequence in which they 
are written on the specification form 
unless a different sequence has been speci- 
fied . 

If specifications had to be followed 
sequentially in a fixed pattern, a program 
would follow a single path of operation 
without any possibility of dealing with 
predefined exceptions to the procedure, and 
without the ability to choose a predefined 
alternative to the procedure, based upon 
conditions encountered during the process- 
ing of the program. 

For example, assume that a program has 
been written containing ten specifications 
that cause a number of operations to be 
performed upon a series of quantities. If 
the first five specifications develop mean- 
ingless results when processed with quanti- 
ties of zero, the processing time of the 
object program can be reduced if the first 
five specifications are bypassed whenever 
the quantity to be processed is zero. 
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A specification in the RPG program can 
be used to evaluate a quantity and, de^jend- 
ing upon the value of that quantity, direct 
the program to some other specification. 



Figure 15 and 16 illustrate a test for a 
zero balance, and Figure 17 shows the 
specifications for a test for a minus 
balance. 



Input Specifications 



Three types of tests can be made on the 
Input Specification sheet: 

1. Testing an input field to determine if 
it contains a plus value. 

2. Testing an input field to determine if 
it contains a minus value. 

3. Testing an input field to determine if 
it is blank or is punched with zero. 



Calculation Specifications 



Three types of tests can be made on the 
Calculation Specification sheet: tests to 
determine whether the result of a calcula- 
tion is plus, minus, or zero. 

The program also can compare two fields 
and can test the result to determine if the 
content of one field is greater than, smal- 
ler than, or equal to that of, the other 
field. 



Figure 15 illustrates a typical test of 
the content of an input field. If FLDA 
(line 6) contains zeros, it is unnecessary 
to perform some of the operations entered 
on the Calculation Specification sheet. To 
make this test, the programmer places a 
number from 01 to 99 in Field 
Indicat o rs: Zero or Blank (columns 69-70). 
In this example the number is 18. If a 
card read into the system contains zeros in 
columns 46-50 (FLDA), indicator 18 is 
turned on. 



Turning on an indicator means a special 
condition has occurred and the program must 
consider this condition during the process- 
ing of calculation specifications and/or 
output specifications. This indicator 
condition is no different from having a 
resulting indicator turned on by a specific 
record identification code from an input 
card. 



For example, the entries circled in 
Figure 16 are the additional specifications 
that bypass the calculation upon detail 
cards if the value in FLDA is zero or 
blank. 
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Figure 15. Specifying a Test for a Zero-Balance 
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Figure 16. Test for a Zero-Balance 



The specifications 14N18 in Indicators 
(columns lO-l**) mean that the calculation 
will be performed if indicator 14 is on and 
indicator 18 is off. (The N in N18 stands 
for Not. ) As now written on the Calcula- 
tion Specification sheet in Figure 16, the 
detail calculations are not performed if 
the value of FLDA from the input card is 
zero (Figure 15) . 

The same indicator specification, N18, 
could also be used on the Output-Format 
Specification sheet to prevent the printing 
of detail cards when FLDA is zero (if that 
was a requirement of the program). 



USING RESULTING INDICATORS 



Problem 



The calculation specifications in this 
example (see Figure 17) illustrate the use 
of a resulting indicator to test for a 



minus balance. The result of the test can 
be used to bypass some specifications and 
to process other specifications only when 
the condition tested for is present. 



Specifications 



The specifications for this example are 
shown in Figure 17. The program logic for 
this example is shown in Figure 18. 

Line 1 specifies that FLDB is to be 
added to FLDA and that the result is to be 
placed in FLDD. Line 2 specifies that FLDC 
is to be subtracted from FLDD, that the 
result is to be placed in FLDD, and that 
FLDD is to be tested to determine if the 
result is minus. In this example it is 
assumed that if a minus balance occurs, the 
calculation has no meaning. Therefore, if 
the result is minus, two things must be 
accomplished: 
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Figure 17. Testing for a Minus Condition 



Line 1 



Line 2 



Continue 
With 
Other 
Processing 



Add 
A + B. 
Store in D 


\ 


Subtract 
D-C. 
Store in D 




This is accomplished on the specifi- 
cation sheet (Figure 17) by placing an 
indicator code (19) in Resulting Indica- 
tors ; Minus on specification-line 2. Indi- 
cator 19 will be turned on for a minus 
condition. 

The function of adding TOTE to FLDD is 
specified on line 3. It is accomplished 
only if there is a no-minus condition 
resulting from the test on line 2. The 
specifications on line 4 cause FLDD to be 
reset to zeros only on a minus condition. 

The in Factor 2 on line H is known as 
a literal and is used to set PM)D to zeros. 
This is accomplished by the zero and add 
(Z-ADD) operation. A literal is the actual 
value to be used in a calculation rather 
than the name of the location of the data 
to be used. The remaining specifications 
on the form in Figure 17 are the same as 
those from previous examples. 

By using indicator 19, it is possible to 
suppress detail-card printing when D-C 
results in a minus balance. 



Figure 18. Testing Indicators to Govern 
Processing 

1. The result must not be added into field 
TOTE. 

2. The contents of field FLDD must be 
reset to zeros. (This step might be 
required if FLDD were used in a subse- 
quent step and the minus balance 
remaining would give incorrect 
results.) 



COMPARISON OF TWO FIELDS 



The calculation specifications in this 
example illustrate the ability to compare 
two fields and govern processing according 
to the result of the comparison. The c<xn- 
parison may be tested for a high, low, or 
equal condition. The result of the test 
can then be used to bypass some specifi- 
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Figure 19. Specifying a Comparison 

cations or to process other specifications moved to HOLD (line 2). If the two fields 

only when a particular condition is pre- are not equal (line 3), FLDB is subtracted 

sent. from FLDA and the result is placed in SAVE. 



Specif ications 



The calculation specifications for this 
example are shown in Figure 19. The pro- 
gram logic for the example is shown in 
Figure 20. 

Line 1 specifies that FLDA is compared 
to FIDB. If the two fields are equal, 
indicator 18 is turned on, and FIDA is 



A literal may also be used in a compari- 
son specification. In the lower half of 
Figure 19, the contents of the input field, 
DATE, are compared against 02-14-64, and 
indicator 19 is turned on if they are 
equal. 



Line 1 
Line 3 





Subtract FIELD B 




From FIELD A. 


Indicator 18 


Store Result 


Is Not On. 


In SAVE 



No 



Compare FIELD A 
to FIELD B 




Yes Turn Indicator 18 On. 

1 



Move FIELD A 
to HOLD 



Line 2 

Indicator 18 is On, 



Continue 
With Other 
Processing 



Figure 20. Testing a Ccanparison 
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MULTIPLICATION AND DIVISION 



Multiply and divide operations are easily 
accomplished with RPG. Moreover, two prob- 
lems associated with these functions 
(decimal- point alignment and 
half-adjusting) are easily specified. 



price for the following week reflects the 
average fabrication costs and scrap losses 
on a year-to-date basis. 



Specif ications 



Problem 



This example illustrates an inventory card 
(Figure 21) that must have the quantity 
multiplied by the price to develop a total 
cost on a weekly basis. The price of the 
part is also updated each week, so that the 



The specifications to accomplish these 
functions are shown in Figures 2 2 and 23. 
Figure 22 shows the input specifications 
for all five fields. The programmer must 
be certain of the exact size of each field 
and the number of decimal places within 
each field. The fields in this example 
are: 
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Figure 21. Inventory Card 



BOS/360 RPG (8K Disk) 



25 



IBM 



INTERNATIONAL BUSINESS MACHINES CORPORATION 

REPORT PROGRAM GENERATOR INPUT SPECIFICATIONS 

IBM System/360 



Punching 
Instruction 


Grophie 
















Punch 


_ 















m 



75 76 77 78 T> 1 









1 

6 






















Z 

1 
1 
17 


■1 
O 

18 






Record Identification Codes 


1 
42 


i 

s. 

43 








Field 








1 

1 
1 

52 


r 




























Field 














Una 
3 4 5 


Filename 

7 8 9 10 11 12 13 U 


1 

15 16 


1 
19 20 


1 


2 


3 




Field Name 

53 54 55 56 57 58 


1 

s 

1 
1 

59 60 




if 

1 <5 

61 62 


i 

63 64 




Sterling 

Sign 
Position 

71 72 73 74 


Position 

21 22 23 24 


z 

z 

25 


O 
26 


s 
i5 

27 


Position 

28 29 30 31 


i 

32 


s 

33 


• 

2 
i 
u 

34 


Position 

35 36 37 38 


Z 

39 


40 


■B 
S 
i 

41 


From 

44 45 46 47 


To 

48 49 SO 51 


PiMS 
65 66 


Minus 
67 68 


Zero 
Blank 

69 70 




1 


<^ 


1 


I 


N 


V 


B 


d, 




R 


Y 


/? 


f\ 






2 


9 






a 


4 




z 


- 


































































































1 





1 














































■ 




































4 








sM/} 


R 


7 A/ 






































3 


^ 


1 
















































































2 


8 






3 


2 


3 


PI^I 


CE 






































4 


^ 


1 
















































































3 


3 






3 


6 


<f> 


Q 


v\Mt\y 




































5 


^ 


1 
















































































4 


1 






4 


8 


2 


YD 


c 





5 


T 




































^ 


4 


1 
















































































4 


9 






^4 


* 


y 


Pm^ 







































7 




. 










































































































































n 


a 




, 











































































































































Figure 22. Input Specifications 



Part Number 

Price 
Quantity 
Y/D Cost 
y/D Usage 



xxxxx 

XX. XXX 
XXXX. 
XXXXXX.XX 
XXXXXX. 






T ^ 

No. of 

Decimal 
Positions 

None (alpha- 
betic) 
3 

2 




As shown in Figure 22 , the decin«l 
positions of each field are entered under 



Decimal Positions on the Input Specifi- 
cation sheet. 



The calculation specifications for this 
example are shown in Figure 23. PRICE is 
multiplied by QUANT Y and the result is 
placed in a field called COST. The field 
length of COST is specified as 9. The 
result field is to have two decimal posi- 
tions and to be half -ad justed as specified 
by the H in Half-Adjust (column 53). The 
following is an example of the arithmetic 
of this operation, using actual values: 



IBM 



INTERNATIONAL BUSINESS MACHINES CORPORATION 



REPORT PROGRAM GENERATOR CALCULATION SPECIFICATIONS 

IBM System/360 



Punching 
Instruction 


Grc»phic 
















Punch 

















m 



And And 



Factor 1 



18 19 20 21 22 23 24 25 26 27 



Operation 



28 29 30 31 32 



Factor 2 



33 34 35 36 37 38 39 40 41 42 



Result Field 



43 44 45 46 47 48 



Field 
Length 



Resulting 
Indicators 



Compare 



High 
1>2 



Low 
I<2 



Rl 



MULT 



NT 



DU 



PR 



Figure 23. Calculation Specifications 
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Price 
Quantity 



1. 


.213 


X 


216 


7 


278 


12 


13 


242 


6 



262.008 



The result, 1.342, is stored as the 
contents of PRICE. The position that was 
half-adjusted is dropped. 



The result field was specified for two 
decimal positions; therefore, the half- 
adjustment is made to the digit 8 in the 
units position. Ha If -adjustment is always 
made to the position to the right of the 
last position retained as part of the 
result, as follows: 



262.008 

+ 5 ha If- ad just 

262.013 

The result, 262.01, is stored as the 
contents of CX)ST. The position that was 
half-adjusted is dropped. 

The second line of the Calculation 
Specification sheet provides the specifi- 
cations for dividing year-to-date costs by 
year-to-date usage. The result is placed 
in a field called PRICE. The field length 
of PRICE is specified as 5, with three 
decimal positions. The result is to be 
ha If -ad justed, as specified by the H in 
Half-Adjust . An example of the arithmetic 
of this operation, using actual values, 
follows. Y ear-to- date COST divided by 
usage equals PRICE. 



1.3419 



(usage) 1296) 1739. 23xx 



(price) 
(year- to- date 
cost) 



The result field was specified for three 
decimal places. Therefore, the half- 
adjustment is made to the digit 9 in the 
units position. This is the position to 
the right of the last position retained as 
part of the result, as follows: 

1.3419 

♦ 5 half-adjust 

1.3424 



SEQ UENCE- CHECK ING 



Two types of sequence- checking functions 
can be performed with RPG: 

1. Checking the sequence of different 
record-types within a control group. 



2. Checking the sequence of control 

groups. (See the section Using the 
Matching Fields Specification for 
Sequence-Checking . ) 



Sequence- Checking of Different Record Tytaes 
within a Control Group 



The application consists of updating an 
invoice file, which, in this case, contains 
from two to four of the following types for 
each part number: 



Card 



T" 

I 
I. +. 

I Master Customer | 

I Shipped Via | 

I Part Number | 

I Comments | 



Code 



5 in col. 
3 in col. 
2 in col. 
8 in col. 



1 

78 I 
78 I 
78 I 
78 I 






Figure 24 illustrates the specifications 
required to check the sequence of a group 
of four card-types. The numbers on the 
form refer to the following numbers: 
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Figure 24. Input Specifications 



The record- identification codes for the 
four cards are specified in the same 
manner as in previous examples. The C 
in C/Z/D indicates that the entire 
character punched in the card is exam- 
ined to establish the record identifi- 
cation code. 

In the specifications for the last 
card- type (specification- line 13 on the 
form), a D is written in C/Z/D because 
there is a possibility that some of 
these card-types may have a zone punch. 
The D specifies that only the digit 
punches in the card are examined to 
identify the card-type. Thus, zone 
punches that could result in unequal 
comparisons a^e ignored. 

The sequence established for the file 
is determined by the sequence in which 
the specifications for each card- type 
are written on the form and by the 
numbers placed in Sequence . In this 
example, the digits 01, 02, 03, and 04 
are used. The numbers assigned must 
begin with 01 in each file. 



3. 



Al£*iabetic characters under Sequence 
in preceding examples indicate that no 
sequence- checking is to take place. 
Alphabetic specifications must always 
be written before numeric specifi- 
cations for any one file. 

These specifications are all that 
are required to cause the object pro- 
gram to perform a sequence-check of the 
various record- types. If a sequence- 
check error is detected, the object 
program is halted. 

Two additional specifications. 
Number and Option , are used in these 
types of applications. 

If a numeric specification is provided 
i^ Sequence , a specification must be 
provided in Number . 



On the first two record identification 
lines, the number 1 in Number indicates 
that no more than one record of that type 
must be present in each group. In this 
example, only one master card and no more 
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than one shipped- via card for each invoice 
must be present. If there is more than one 
of either of these cards, the program rec- 
ognizes an error in the input file. 

The letter N in Number of the specifi- 
cations for the last two record-types means 
that multiple card-types for each part 
number may be present. In this case, mul- 
tiple cards for part number and comments 
may be present. 

The letter O in Option in the specifi- 
cations means that the records are option- 
al. That is, a record may or may not be 
present. 



If the letter O was not specified, it 
means that the particular record must be 
present. This requirement applies only if 
Sequenc e has been specified as numeric. 



CORRELATION OF THE RPG SPECIFICATIOW SHEETS 



Figure 25 shows a file-to-file sample pro- 
gram. It illustrates the relationships of 
the RPG specification sheets. (This type 
of report is often called an 80/80 
listing) . 
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Device 
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Figure 25. File-to-File Program 

Assume the contents of an input file are for this program: File Description, Input, 
to be transferred to another file- In this and output- Format, 
example the input file is a card file, and 
contents of the cards are to be printed. 
Three specifications sheets are required 
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FILE DESCRIPTION SHEET 



The two files are described on this sheet. 
The card- input file is assigned the name 
INPUT, and the printed output file is named 
OUTPUT. Page and line sequence numbers are 
entered in columns 1-5. An F in column 6 
indicates that each entry is a File Des- 
cription entry. The file names are entered 
in columns 7-14 ( Filename ) . Column 15 
contains an I or an O to indicate whether 
the file has an input or an output func- 
tion. 

Column 16 of the input file on the File 
Description Specification sheet contains a 
P because the file described is the primary 
input file for the job; the E in column 17 
indicates that the end-of-file condition 
for this file occurs when this file is 
depleted. 

column 19 contains an F and a V to indi- 
cate that the file formats are fixed-length 
and variable-length respectively. (See 
Variable-Length Records. ) 

Block length (columns 20-23) is 80 for 
the input file because each card is a block 
of data. Record length (columns 24-27) is 
also 8 for the input file because each 
card is an unblocked record. For the out- 
put file the block length and the record 
length is 132, which is the maximum length 
of a printer line. The program identifi- 
cation is entered into columns 75-80. 



columns 1-5. An I in column 6 of each card 
indicates an Input Specification Entry. 

The filename is again entered into 
columns 7-14. Columns 15-16 contain the 
sequence code AA. Indicator 01, entered 
into columns 19-20, will be on throughout 
the job to show that records from its asso- 
ciated file are being processed. The sec- 
ond line describes the field name CARDIN. 
The field consists of card columns 1-80. 



OUTPUT-FORMAT SPECIFICATION SHEET 



On the Output-Format Specification sheet, 
the filename of the output file is entered 
in columns 7-lU. The D in column 15 indi- 
cates that each line printed in this file 
is a detail line. A single space after 
printing is specified by the entry in 
column 18. Indicator 01 from the Input 
Specification sheet is specified in colvimns 
24-25. When indicator 01 is on, a record 
will be printed. 

The second output line has the name of 
the field to be written in the output 
record entered in columns 32-37. Data from 
the field labeled CARDIN will be printed 
(end position of 80) in the output record 
as specified in columns 40-43. 



If the input file was read in by an IBM 
1442 Card Read-Punch, the code in Device 
(columns 4 0-46) would be READ4 2. The out- 
put printer would have a device code of 
PRINTER. 

The symbolic device codes for the two 
files would be SYSRDR and SYSLST. 



INPUT SPECIFICATION SHEET 



The Input Specification sheet also has the 
program identification entered in columjis 
75-80 and the page and line numbers in 



SUMMARY 



This completes the general description of 
some of the functions that can be performed 
with RPG. Some of the fields of the speci- 
fications sheets were not explained and 
some additional operations that can be 
performed with RPG remain to be described. 
At this point, the reader should be able to 
determine the scope of the RPG program. 

More specific information about each 
specification sheet is contained under RPG 
Specification Sheets . 
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PROGRAM LOGIC 



Each object program generated by RPG uses 
the same general logic, and for each record 
to be processed the program goes through 
the same general cycle of operations. 
Within that cycle, there are two different 
instances in time when operations specified 
on the Calculation and Output-Fornat Speci- 
fication sheets are performed. These 
instances are called detail and total time. 

For the illustration of this concept, a 
generalized flowchart of an RPG object 
program is shown in Figure 26. 

The following numbers correspond to the 
numbers on Figure 26. A program cycle 
begins with item 1 and continues through 
item 11. Steps 6 and 7 are referred to as 
total time . Steps 11 and 1 are referred to 
as detail time. 



1. 



2, 



4. 



Before the first record is read, the 
object program prepares and prints any 
heading information to be printed on 
the first page. After the first record 
has been read, the object program pre- 
pares and prints any heading and detail 
information which is not conditioned on 
overflow. 

The object program tests for any halt 
indicators. If any halt indicators are 
on, the program branches to item 12. 

The object program tests for the end- 
of-file conditions. If the end-of-file 
condition has occurred, the program 
branches to item 13. 

The object program then reads an input 
record. 

Starting with line 1 of the Input 
Specification sheet, and with the 
record just read, the object program 
uses the record identification code to 
identify the record. When the iderm 
tif ication code matches an entry on the 
input sheet, the object program turns 



on the resulting indicator that has 
been specified for the record. When a 
control-field break occurs, appropriate 
control-level indicators are turned on. 



6. Next, all total calculations are per- 
formed. (This step is bypassed for the 
initial control break which is caused 
by reading the first input record.) 

7. Next, all total output lines which are 
not conditioned on overflow are pre- 
pared and printed. (This step is also 
bypassed for the first control break.) 

8. The object program tests for the last 
record indicator. If it is on, the 
program branches to item 14. 

9. The object program tests for an over- 
flow condition. If an overflow condi- 
tion has occurred, the program branches 
to item 15. 

10. The data fields contained in the input 
record just read are moved into stor- 
age. These fields are specified by 
field entries on the Input Specifi- 
cation sheet. 

11. Any detail calculations are performed, 
and processing continues with item 1. 

12. Program execution stops. 

13. The Last-Record indicator (LR) is set 
ON and all control-level indicators 
L1-L9 are set ON. Then the program 
branches to item 6. 

14. Program execution stops. 

15. If overflow has occurred, any lines 
conditioned by overflow are printed. 

If no overflow printing has been speci- 
fied, an automatic skip to channel 1 
occurs. The program then branches to 
item 10. 
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Figure 26. General Logic Flow of an RPG 
Object Program 
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PROBLEM DEFINITION 



The programming examples in the preceding 
section were intended to introduce the 
reader to the tise of RPG and were therefore 
kept simple. More complex applications may 
require a thorough analysis of the existing 
or proposed system before program writing. 

This analysis should include a descrip- 
tion of source data and its format, and how 
this data should be processed to develop 
the report and other necessary output 
information. 

The following types of information must 
be defined before coding the program: 

1. The available data. 

2. The input and output formats to be 
used. 

3. The information required in the input 
and output formats. 

U. The codes to be used to identify the 
various inputs and outputs and their 
elements . 



is punched in cards, the user must know 
where the information is to be located. 1 
tape layout chart (Form X21-9011) or a 
direct-access storage- device layout chart 
(Form X24-1711) can be used. 



Layout of Lines and Fields 

The two most important functions of a prin- 
ter spacing chart are: 

1. To establish the positions of the data 
to be printed and to indicate the spac- 
ing between printed lines. 

2. To assign each line an identification 
code representing the type of line. 
Figure 27 show» an example of the prin- 
ter spacing chart (Form X2U-6436). 



5. The handling of the various transac- 
tions and exceptions. 

After all application data has been 
gathered, document it for easy reference 
during the writing of the specification 
forms. One method of documenting an appli- 
cation is to lay out the ccwnplete format of 
the report on a printer spacing chart. 
This method also provides a pictorial rep- 
resentation of the final product. 



PRINTER SPACING CHART 



Before the report specifications are writ- 
ten, the programmer should have a clear 
picture of what he wants as the final pro- 
duct. If the report is to be printed, he 
must know the number of fields to be placed 
on each line of the report, the spacing 
between lines, and the positioning of the 
information within each line of the report. 

Although no cards for the source deck 
are punched directly from the entries on 
this chart, the representation serves as a 
guide for completing the specification 
sheets. It plays an important role in 
writing report specifications. If the 
final product is written on magnetic tape 
or direct-access storage devices or if it 



The numbers across the top and bottom of 
the spacing chart represent the print posi- 
tions. The numbers down the left side are 
the line numbers. The programmer selects 
the line number and print positions for a 
particular field and makes his notation in 
the selected positions. 



Headings and other constant information 
are spelled out completely in the print 
positions assigned to then. Variable 
information is represented by X's and where 
applicable, includes credit symbols, punc- 
tuation, etc. The position in an amount 
field where zero suppression ends is indi- 
cated by a zero rather than an X. 



Line- Identification Code 



The line-identification code specifies the 
type of line to be printed. The identifi- 
cation codes are: H for a heading line, D 
for a detail line, and T for a total line. 
All lines mxist be identified as belonging 
to one of these categories. 
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RPG SPECIFICATIONS SHEETS 



This section provides detailed explanations 
of each specification field in the five RPG 
coding forms. 



CROSS-REFERENCES 



Input Specifications 
Calculation Specifications 
Out put- Format Specifications 
File Description Specifications 
File Extension Specifications 

Figure 28 shows the five specifications 
sheets. 



TO make this reference manual a more effec- 
tive learning tool, numerous crossreferen- 
ces are placed for readers not familiar 
with disk-storage processing and related 
functions. 

Disk storage, table lookup, matching 
field, and chaining field operations and 
related functions are described apart frcan 
the detailed descriptions of specifications 
for them. 

These general introductory descriptions, 
contained at the back of the manual, are 
intended for the reader as he encounters 
the related specifications for them 
throughout the manual. To facilitate 
locating th^m in the manual, all cross- 
references used are listed in the Index. 

The section Disk Storage Concepts 
provides a general introduction to disk- 
file organization and processing, including 
terminology associated with these 
functions. Readers not familiar with these 
concepts may wish to review that section 
before beginning with RPG Specification 
Sheets. 



GENERAL INFORMATION 



The forms are listed in the sequence in 
which they are discussed in this publica- 
tion. 



INPUT SPECIFICATIONS: This fotro is used 
to: 

1. Specify the file or files to be read 
into the system. 

2. Identify the different types of records 
contained in each file. 

3. Describe the location of the data 
fields in each record. 

CALCOLATION SPECIFICATIONS: This form 
specifies the operations to be performed 
upon the input data and upon data obtained 
as the result of previous calculations. 



OUTPUT- FORMAT SPECIFICATIONS: 
specifies: 



This form 



1. The kind of output files to be pro- 
duced: printed reports, summary 
records, etc- 

2. The location of the data fields in the 
output reports and records. 

FILE DESCRIPTION SPECIFICATIONS: This form 
provides additional information about input 
and output files that is not included on 
the input or output sheets. 

FILE EXTENSION SPECIFICATIONS: This form 
provides additional information about files 
used by the object program, such as tables, 
chaining files, and record-address files. 
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COMMON FIELDS 



There are five entries that have the same 
function in all five forms. These are 
described first. 



arranging them in sequence by page number 
and line number. 



FORM TYPE (COLUMN 6) 



PAGE NUMBER (COLUMNS 1-2) 



Each specification page of the source pro- 
gram must be nmnbered. The pages are num- 
bered beginning with 01 for the file- 
description form, and continuing in the 
following sequence: 

File Extension 

Input 

Calculation 

Output-Format 



LINE NUMBER (COLUMNS 3-5) 



Each specification line must be identified 
by a line number. The first two digits of 
the line number are preprinted on the form. 
The third position (column 5) is used when, 
after all specifications have been written 
on the form, it becomes necessary to insert 
an additional line between two previously 
written lines. The line to be inserted is 
written following line 15. It is given an 
appropriate number (and subnumber in column 
5). 

The cards must be in numeric sequence by 
columns 1-5 when they are read by RPG. 
This means that the specification cards for 
a program could be placed in numeric 
sequence (if, for example they were acci- 
dentally dropped or upset) by sorting or 



Each form has an appropriate type-code 
preprinted in column 6. This code must be 
punched into all specifications cards. The 
codes are: 

I - Input 

C - calculation 

O - Output- Format 

F - File Description 

E - File Extension 



COMMENTS (COLUMN 7) 



This feature enables the programmer to 
insert an identifying comment in the speci- 
fication sheets. This facility can be 
used, for example, to identify the end of 
one section of a program. These comments 
are written on the specification line, 
preceded by an asterisk in column 7. Dur- 
ing the generation of the object program, 
the asterisk in column 7 identifies the 
coiranent so that it is not considered a 
specification. 



PROGRAM IDENTIFICATION (COLUMNS 75-80) 



This entry identifies the specification 
cards for a particular program or for a 
specific section of a large program. 
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INPDT SPECIFICATIONS SHEET 



GENERAL INFORMATION 



RECORD IDENTIFICATION ENTRIES 



The specifications for this sheet are 
divided into tvo categories as shown in 
Figure 29. 



1. Record Identification (columns 7-42). 
These entries identify the input record 
(by specifying the identifying record 
codes it contains) and specify the 
relationship of the record to other 
records in the file. 



FILE NAME (COLUMNS 7-14) 



A file name must be given to each input 
file. The file name must be left- justified 
(that is, it must start in column 7) and it 
must begin with an alphabetic cheuracter. 
The file name may be alphameric, but it 
must not contain special characters or 
blanks. The file name may be eight charac- 
ters or fewer. 



Field Description (columns 43-74). 
These entries describe the fields of 
the input record used in the report. 
Each field is described on a separate 
line and is written on the line below 
its corresponding record-identification 
entry . 



Note I t In this publication, an alptia- 
betic character refers to the letters 
A-Z, and the dollar sign, pound sign, 
and the at sign ($, #, and a). 

The file name must be entered only with 
the first record-identification line of the 
appropriate file. 

Note 2 ; The file name may be eight 
characters long but RPG will utilize 
only the first seven characters for all 
files except indexed-sequential files. 
For indexed-sequential files, only the 
first five characters of the filename 
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Figure 29. Input Specification Sheet 
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are utilized in the RPG program. 
Therefore, it is important that the 
first seven (or five) characters pro- 
vide a unique filename. 



SEQUENCE (COLU^!NS 15-16) 



This entry designates the sequence of input 
r ecord- types . 



Alphabetic Entries 

If the input records are not required to be 
in a predetermined sequence within a con- 
trol group, or if it is not necessary to 
terminate processing when the input records 
are not in sequence, the entry in columns 
15-16 should be a two-character alphabetic 
code. 

In Figure 30, the input data records, 
which contain part numbers and unit number, 
do not appear in a predetermined sequence 
with in a control group, consequently, 
each input record-type is assigned an 
alphabetic code because the order of proc- 
essing is not important to the program. 



Numeric Entries 



If there is more than one record type with- 
in an input file, the records may appear in 
some predetermined sequence. To process 
the input data records in a predetermined 
sequence, the input records are specified 



on the Input Specification sheet in the 
same sequence in which they are to be read 
by the object program. For example, assume 
that the input records appear as shown in 
Figure 31. The Name Record is assigned 01 
because it is the first- type. The Street 
Record is the second type. The Street 
Record is assigned 02. The City-state 
Record is assigned 03, and the Item Number 
Record is assigned Ot». (In this case, 
there may be several items-number records) . 
If the input records do not appear in this 
predetermined sequence, program processing 
stops (information is out of sequence). 
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f Port Numbe r 
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Figure 30. Input Data Records 
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Figure 32. Entries for Numeric Sequence 



Figure 32 illustrates the sequence in 
which the records must appear. 



Restrictions 



Numeric entries must consist of two 
digits. 



• The entries in a predetermined sequence 
must begin with 01 for each file (columns 
15-16 of the input sheet). 
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• The entries in a predetermined sequence 
must be in ascending order in columns 
15-16. 

• Header cards or other cards that are not 
in sequence must be specified on the 
Input Specification sheet before specifi- 
cations that are to be sequence-checked. 
Enter cdphabetic sequence record- types 
first, followed by numeric-sequence 
record-types for each file. 

• A maximum of 99 record-types is allowed. 



NUMBER (COLUMN 17) 



If a numeric code is assigned under 
Sequence , an entry must also be made in 
Number (column 17) . If an alphabetic code 
has been assigned under Sequence , leave 
this column blank. 

The entries for Number (column 17) are: 

1 - Only one record of a type may be 
present in a control group r 

N - One or more records of a type may 
be present in a control group. 

Blank - The records do not appear in a 
determined sequence. 

As shown in Figure 32, there can only be 
one Name Record , but there can be multiple 
Item Number Records. 



OPTION (COLUMN 18) 



This specification is used only with 
numeric-sequenced record- types. If a 
specific record-type must be present to 
perform an operation, leave this column 
blank. If the presence of a record is 
optional, enter the letter O in column 18. 

In Figure 32, the O (alphabetic) in 
column 18 indicates there may or may not be 
an Item Number for each group. In this 
example. Name, Street , and City-state 
records must be present. 



RESULTING INDICATOR (COLUMNS 19-20) 



The entry in these columns is used in con- 
junction with the next entry Record Iden- 
tification Codes . This entry serves two 
functions : 



1. It establishes a unique two-digit code 
for each input- record type. 

2. A special indicator is turned on in the 
object program each v time the input 
record is present. Itiat is, the object 
program may test- for this condition 
during the processing of the calcula- 
tion and output specifications. 

To understand the first function of this 
entry, assiane that an input record is iden- 
tified by all of the following codes: 

1. An X in column 80* 

2. A digit 5 in column 79. 

3. No R in column 78. 

By assigning one two-digit resulting- 
indicator code to represent all these 
codes, it is easier to refer to this input 
record during the processing of the 
calculation and output specifications. 

As an example of the second function of 
this entry, resulting indicators may be 
compared to selectors in punched-card 
machines or to internal and external 
switches on electronic data processing 
machines. The use of resulting indicators 
(like the use of selectors and switches) 
permits certain operations to occur only on 
specific conditions. 

In Figure 32, the four record-types have 
been assigned resulting indicators 12, 13, 
14, and 15. When one of the records is 
present, the appropriate resulting indica- 
tor is turned on, and those specifications 
pertaining to the record are performed. 
Specifications associated with other 
record-types are not performed. 

Resulting indicators are turned on and 
off during the processing of the object 
program, as the various record-types are 
read by the system. However, only one 
resulting indicator (for a record- type) can 
be on at one time. When a resulting indi- 
cator is turned on, all other resulting 
indicators are turned off. There is one 
exception to this condition (see Chaining ) . 

Other indicator conditions that can be 
established in the program are field indi- 
cators (columns 65-70 of the Input Specifi- 
cation sheet) and resulting indicators 
(columns 54-^59 of the Calculation Specifi- 
cation sheet) . These functions are des- 
cribed later, but one aspect of their use 
is of interest at this time. 

All three types of indicators are 
assigned a two-digit number from 01-99. 
The indicator codes can be assigned in any 
sequence. For example, four different 
record-types could be assigned codes 40, 
62, 98, and 02. 
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RECORD- IDENTIFICATION CODES (COLUMNS 21-41) 



These entries provide a way of identifying 
each different record- type used in the 
object program. As mentioned previously, 
once the record-type has been defined on 
the Input Specification sheet, references 
to the record are made by its resulting 
indicator. 

These columns provide for the entry of 
one to three identifying codes as indicated 
by the numbers 1, 2, and 3 on the Input 
Specification sheet. It is possible to 
specify more than three codes by using more 
than one line. If only one record-type is 
in the input file, the identification codes 
can be left blank, but a resulting indica- 
tor and sequence number must still be spec- 
ified. 

Each of the three sets of entries is the 
same, so only the first set (columns 21-27) 
is described. Each set is divided into 
four categories: 

Position (columns 21-24) 
Not (column 25) 
C/Z/D (column 26) 
Character (column 27) 



codes contained in the records. The entry 
in column 26 specifies whether the object 
program is to compare against the entire 
character (C) , against only the zone por- 
tion (Z), or against only the digit (D). 
Enter a C, Z or D in column 26. 



ZONE RECORD IDENTIFICATION: Testing a zone 
means that the zone of the character speci- 
fied in columns 21-24 of the input sheet is 
used to identify the record. The amper- 
sand, the minus, and the blank are excep- 
tions. An ampersand will be identified as 
a 12-zone, the minus sign as an 11-zone, 
and a blank will be identified as a no- 
zone. The four common zones are: 



1. 12-zone or plus zone (0, A-I, and 6) 



2. 11-zone or minus zone (0, J-R, and 
minus ) . 



3. 0-zone (S-Z). 

4. No zone (0-9 and Blank). 



Position (Columns 21-24) 



Enter in this column (or columjris) the posi- 
tion in each data record of the character 
that contains the identifying code. The 
position must be right-justified in columns 
21-24, and leading zeros may be omitted. 



When you lase a blank, ampersand, or 
minus in the character portion of a zone 
test, other characters which contain the 
same machine zone (e.g. ?, ^, or %, 
respectively) will not satisfy the zone 
test. 



Character (Column 27) 



Not (column 25) 



Enter an N in this column if the code des- 
cribed must not be present in the specified 
record position. Otherwise, leave this 
column blank. 



Enter in this column the identifying 
character that will be compared to the 
character specified in the input record. 
The character used in this column may be 
any letter A-Z, any number 0-9, or any 
special character. 



C/Z/D (Column 26) 



Examples of Record- Identification Codes 



The object program identifies the different 
record-types of a program by comparing the 
character written in Character against the 



Examples of record- identification specifi- 
cations are shown in Figure 33. The expla- 
nation of each entry is given here. 
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Figure 33. Record Identification Codes 



This entry specifies an 11- zone in 
record position 48. Any of the letters 
J-R, or the minus sign, could be placed 
in Character because they all contain 
an 11-zone. A Z must be placed in 
coltimn 26 so that only the zone portion 
is checked. If a C were placed in this 
column, the object program would com- 
pare the letter K against the input- 
record code instead of a 11-zone. A 
minus could be placed in this field to 
represent an 11-zone, and an ampersand 
could represent a 12-zone. 

This entry specifies that no 11-zone 
may be present in record- posit ion U8. 

This entry specifies that the digit 
portion of the code is checked. A 
character whose digit portion is 5 must 
be in record- posit ion 62. For example. 



=1 5, N, V, or E would fulfill this 
requirenent. 



4. This entry specifies that the letter T 
must be present in record-position 49. 

5. These entries specify that all three 
codes must appear in the same record. 
A 4 must appear in column 16. Column 
40 must not contain the number 5, and 
column 80 must contain a 12-zone. This 
is known as an AND relationship. 

The last example illustrates the way to 
specify more than one code on more than one 
line. If an input record contained five 
different codes, they could be specified as 
shown in Figure 34. This is also known as 
an AND relationship. It implies that the 
card is identified by: 
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Figure 3U. Specifying More Than Three Identification Codes 



1. A 4 in coliimn 16, and 

2. No 5 in column UO, and 

3. An 11-zone in column 80, 

4. A 2 in column 20, and 

5. A 3 in column 25. 



and 



Additional specification lines can be 
used to specify as many record 
identification codes as required. Each 
additional line must begin with the word 
AND in coltimns 14-16 and blanks in columns 
17-20. 



OR Relationship 



Three types of OR relationships are possi- 
ble: 

1. One or more record-types have the same 
fields in the same positions of the 
record. (All fields in one record-type 
are in the same relative positions in 
another record-type.) 

2. One or more record->types have the seune 
fields, but the fields are in different 
positions of the record. For example: 
unit cost is in positions 21-25 in one 
record- type and in positions 31-35 in 
another record-type. 

3. One or more record-types have different 
fields in the same positions or in 
different positions of the record. For 
e^^ample: two record- types with ten 
fields in the same relative positions, 
but with three fields in different 
positions. It is of value to specify 
these record-types in an OR relation- 
ship only if there are more fields that 
are alike than fields that are unlike. 



The use of this facility and its advan- 
tages will be easier to understand 
after the explanation of Records in an 
OR-Relationship . 



Omitting Record Identification 



When input records are to be processed 
alike without regard for their identifying 
codes, columns 21-41 may be left blank; 
however, sequence (columns 15-16) and a 
resulting indicator (colismis 19-20) must be 
specified. 

When only certain re cord- types within a 
group are to be read and processed, they 
must be listed first with their identifying 
record codes. The remaining record-types 
may be li^passed or processed as a group. 
In either case, they are specified as the 
last record-type and they must have a 
resulting indicator specified for them. 
Columns 21-41 of the Input Specification 
sheet are left blank. 

Note ; If the records are to be 
bypassed^ they should not be referred 
to on the calculation or output sheets. 



STACKER SELECT (COLUMN 42) 



If the input record type is from cards that 
are to be stacker-selected, the number of 
the stacker into which the card is to be 
selected is entered in column 42. Leave 
column 42 blank if the cards are to go to 
the normal pocket. 
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The stacker pockets and their acceptaJale 
codes are: 



IBM 1442 



Pocket 

1 
2 



Code 




IBM 2501 
Pocket Code 

Leave blank 



IBM 2520 
Pocket Code 



1, or blank 
2 



IBM 2540 
Pocket Code 



Normal or Rl j 
R2 j 
RP3 I 



Blank 
1 
2 



The stacker-select entry should be made 
on the same line with the record identifi- 
cation. If different records in an OR 
relationship are to be stacker-selected, 
enter the codes on the same line with the 
record identification. Stacker select must 
be specified on each line in an OR- 
relationship if it is desired. 



COMBINED FILES STACKER SELECT 



et 2 always takes precedence; i.e. 
can never be overridden. 



it 



When an IBM 2540 Card Read-Punch is 
used, and the combined files are to be 
stacker selected, the last entry specified 
always takes precedence. 



FIELD DESCRIPTION ENTRIES 



As mentioned previously, the Input Specifi- 
cation sheet consists of two categories: 
record identification and field descrip- 
tion. 



On the record identification portion of 
the Input Specification sheet, one line 
represents the specifications for one 
record-type. On the field-description 
portion of the sheet, one line represents 
the specifications for one field of a 
record. 

The following information concerns the 
individual field descriptions of one 
record- type. Field descriptions are always 
written on the specification line immedi- 
ately below the specification line that 
identifies the record- type. 

Field description entries describe the 
fields of the input record to be used in 
the report. Each field of the record 
requires one line on the Input Specifi- 
cation sheet. Columns 7-42 of the line 
must be blank. 



When there are combined files to be 
stacker-selected, the user can determine 
the stacker pocket into which the cards 
will fall. The Stacker Select entries 
(column 42 of the Input Specification sheet 
and column 16 of the Out put- Format Specifi- 
cation sheet) must be utilized in one of 
the following ways when using an IBM 1442 
Card Read-Punch: 

1. If stacker pocket 1 is selected, enter 

1 in the appropriate column of either 
sheet. The remaining entry can be 1^ or 
blank. 

2. If stacker pocket 2 is selected, enter 

2 in the appropriate column of either 
sheet. The remaining entry can be 1, 
2, or blank . 

Note : When there is to be punched 
input and punched output, stacker pock- 



PACKED (COLUMN 43) 



Enter a P in this column if the input field 
is in the packed decimal format. Other- 
wise, leave this column blank. 

Note 1 ; If a P is entered in this 
column and the input field specified is 
blank, an arithmetic check and an 
abnormal end-of-job will occur. 



Note 2 : If the field is in packed 
format, RPG will compute the unpacked 
field length using the following formu- 
la: 

I (TO Position- FROM Position) ♦2] +1 
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FIELD LOCATION 



RECORDS IN AN OR- RELATIONSHIP 



Columns 44-51 of the Input Specification 
sheet are used to describe the location of 
each field in the record. The maximum 
field length for a numeric field is 15 
digits. The maximum field length for an 
alphameric field is 256 characters. 



FROM (COLUMNS 44-47) 



This entry shows the location of the first 
position of the field, that is, the high- 
order position. The entry in columns 44-47 
is right- justified, and preceding zeros may 
be omitted. 



TO (COLUMNS 48-51) 



This entry shows the location of the last 
position of the field (the low- order 
position). The entry in columns 48-51 is 
right- justified, and preceding zeros may be 
omitted. In Figure 35, the field DEPT may 
be found in columns 5-8 of the input 
record. 



It is possible to specify two different 
record-types (whose fields are in the same 
positions) with one set of specifications. 
In Figure 35 note that OR has been entered 
in columns 14-15. Thus, two different 
input records have the same fields, but the 
identifying codes are different. The OR in 
columns 14-15 indicates that the fields may 
be taken from an input record that has a 5 
in column 35 and no 11- zone in column 80, 
or the field may be taken from an input 
record that has a 6 in column 35. Thus, 
Figure 35 shows the only additional speci- 
fication required to specify both input 
records that are acceptable- 



Note: In this case, it is not neces- 
sary to enter indicator 14 for the 
second record identification, because 
it has been previously specified. 

It is also possible to specify two 
records in an OR- relationship when the 
field records are not in the same location. 
Using Figure 36, notice in columns 19-20 
that resulting indicator 14 is turned on 
when a 5 is in column 35 and no 11-zone is 
in column 80. Resulting indicator 16 is 
turned on when the input record has a 6 in 
column 35. By specifying an OR- 
relationship, it is possible to specify 
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Figure 35. Specifying Input Fields 
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# Figure 36. Specifying Field Location 



both record-types with one set of 
specif ications . 



In this exanqple, the field locations are 
not the same in both types, so it is neces- 
sary to provide a separate resulting indi- 
cator code for the second record type. The 
second line, columns 14-27, of Figure 36 
indicates that there is a second input 
record that is acceptable. However, FLDC 
(field C) is not located in the same posi- 
tions in both record-types, so it must be 
specified twice. Each of the two entries 
for FLDC must be related to the appropriate 
record type. This is accc»nplished by 
entering the resulting indicator code, 
which is taken from columns (63-64). 



Thus, if resulting indicator 14 is on, 
FLDC will be taken from positions 66-70 of 
the input record. If resulting indicator 
16 is on, FLDC will be taken from positions 
61-65 of the input record. 



Specifying record-types in an OR- 
relation is not limited to only two 
records. Ks many records as are required 
can be specified as having an OR- 
relationship. 



DECIMAL POSITION (COLUMN 52) 



An entry in this column serves two 
functions : 



1. 



It is used by the object program to 
determine the number of decimal posi- 
tions contained in the numeric field 
which is specified in Field Location. 



2. It causes the field specified in field 
location to have 0-, 11-, or 12-zone 
bits roBoved from all positions of the 
field except the units position. 



Enter in this column the digit that 
represents the number of decimal positions 
in the input data field. If the data is a 
whole number, enter in this column. An 
entry in this column specifies this field 
is a numeric field. If the field contains 
alphameric data that is to be treated as 
alphameric data, leave this column blank. 



In Figure 36, DIVSON is an alphameric 
field and no entry is made in column 52. 
However, FLDA through FLDC are numeric 
fields but they contain no decimals. A 
zero is entered in column 52 for these 
fields. 
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FIELD NAME (COLUMNS 53-58) 



Each field defined must be given a field 
name. Once a name has been assigned to a 
field, other references to it are made by 
using the field name, rather than by using 
the specific record position each time. 
Thus, the record positions of the input 
fields are not needed when writing the 
calculation and output specifications. 

The field name must begin with an alpha- 
betic character, and it must start in 
column 53. The field name may be alphamer- 
ic. 

Two input files may have fields with the 
same field names. A field name is assigned 
only once by RPG. Two input files will use 
the same storage location for fields with 
identical names. This procedure is permis- 
sible when using RPG, but the programmer 
should be aware that possible errors in 
calculations or output may occur when two 
input files have the same field names. 
This is especially important when chaining 
fields are specified on the input Specifi- 
cation sheet. 

Certain restrictions apply to the selec- 
tion of field names. The following names 
can only be used in certain instances, and 
cannot be used at any time other than that 
specified. 

1. TAB . These three characters 

can only be used as a 
prefix to the name of a 
table. 

2. PAGE . This prefix can only be 

used in reference to page 
numbering . 

3. ALTSEQ. This name cannot be used 

as a field name. 

4. C O N T D __. This name can only be 

used in conjunction with 
the conversion routine. 

5. I N n n . This name can only be 

used as an RIABL ref- 
erencing an indicator. 



Specifying the Same Data Field as 
Alphameric and Numeric 



If the same field from an input record is 
to be used as both an aljAiameric and a 
numeric field, the field must be specified 
twice by assigning two different field 
names to the same location in the record. 
If no decimal positions are specified for 



the field, it is considered to be an 
alphcumeric field. 



Specifying Constants 



The term constant is frequently used for 
information that is not changed with each 
record. It is usually not altered during 
the object run. Exsunples of constants are 
date cards, or other data that may be 
changed for each run. The technique to get 
this information to the program is by 
defining a special record type and by 
assigning a field name that is not other- 
wise used. If the constants must be avai- 
lable before the first data record of a 
file is processed, it may be necessary to 
define an additional file. This technique 
will also permit entering of constants that 
are too large to be specified as literals 
in the source program. 

Figure 37 illustrates field names that 
are easy to read and suggest the function 
of the fields they represent. 
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CONTROL LEVEL (COLUMNS 59-60) 



As the object program is processed, a 
change in a control fieid causes all proc- 
essing indicated by this change to be ini- 
tiated. Columns 59-60 are used to provide 
a convenient and simple method for speci- 
fying all control functions. 

Op to nine control levels can be used by 
RPG. These levels are designated LI, L2, 
L3,...L9. An indicator similar to the 
resultiiKf indicator is associated with each 
control-level designation. They are used 
to control functions specified on the cal- 
culation and output specification sheets. 
When the field specified in Field Location 
is a control field, its appropriate control 
level must be specified in columns 59-60. 
Figure 37 shows the entries for three con- 
trol fields, (The control fields could 
have been listed on the sheet in any 
sequence. ) When more than one file has 
control levels specified, the overall 
length of each control field must be the 
same length for all record types. 



automatically performs the operations of 
storing the field twice and performing the 
appropriate zone elimination. No 
additional specifications need be written 
by the programmer. 

SPLIT CONTROL FIELDS; Several fields in an 
input record can be specified as one con- 
trol field. In the lower half of Figure 
37, three fields, which are not in continu- 
ous record positions, are specified with 
the same L4 control level. The three 
fields are treated as one control field: 

ICOSNO I ACTNO 1 REGNO! 

The first field defined on the input 
sheet is placed in the high-order position, 
and the last field is placed in the low- 
order position. All fields are placed 
according to the sequence in which they are 
defined on the Input Specification sheet. 



USING SPLIT CONTROL FIELDS WITH FIELD 
RECORD RELATION 



Additional Functions of Control Level 
Specif ications 



Several rules must be observed when split 
control fields (columns 59-60) are 
specified in conjunction with Field-Record 
Relation (columns 63-64). 



If a field specified in field location also 1. 
has an entry in control level, the object 
program places the field into two main 
storage areas. One area, known as a 
control-field holding area , is iised for the 
controlling functions of the field, and the 
other is used for any other uses of the 
field (such as for printing or for arith- 
metic calculations). 

For example, it may be necessary to use 
a field for controlling functions but with- 2. 
out considering zone bits in the comparison 
of the record to the next record. If the 
zone bits are not to be used in a compari- 
son, specify the field as niimeric by making 
a decimal entry in column 52. If the zone 
bits are to be used in a conparison, leave 
column 52 blank. In Figure 37, L3 in 
columns 59-60 causes the field DIVNO to be 3. 
placed into storage in one ar^i with zone- 
bits removed from all positions of the 
field to be used for control functions and 
to be placed in another area with zone bits 
removed from all positions of the field 
except the units position. The RPG program 



For each indicator, the sum of the 
length of the split fields must be 
equal to the length of the combined 
control fields as originally defined 
for a particular control level. In 
Figure 38, the sum of the lengths of 
FLDA and FLDB (Ll for blank indicator) 
must be equal to the sum of the lengths 
of FLDAl and FLDBl (Ll for indicator 
01). 

Within the specifications for a given 
indicator (in the Field-Record Relation 
columns) , the control levels must be in 
ascending sequence. In Figure 38, the 
specifications for indicator 01 are 
entered in ascending sequence (Ll, Ll, 
and L4). 

The split control levels specified with 
no entry in Field-Record Relation 
(blank resulting indicator) must be 
specified first. In Figure 38, the 
fields FLDA-FLDE (blank in columns 
53-64) are entered before the remaining 
entries are specified. 



50 



IBM 

Dan 




































REPORT 


INTERNATIONAL BUSINESS MACHINES CORPORATION 

PROGRAM GENERATOR INPUT SPECIFICATIONS 

IBM System/360 






























Form X24-33J0 
PrlnUd in U. S. A. 


P'osram 


Punching 
Instruction 


Graphic 
















12 75 76 77 78 79 80 | 








Punch 
















'"S* 1 1 1 ldenm'c°aHan 


1 1 I 1 1 1 














Une 

3 4 5 


J: 

6 


Filename 

7 8 9 10 11 12 13 U 


1 

cr 
15 16 


2 

i 
1 

z 

17 


J 
IS 


1 

1 

n 

.| 

I 
19 20 


Record Identification Codes 


i 
1 

42 


i 

43 i 


Field 
Location 


1 

1 
I 

52 


Field Name 

53 54 55 56 57 58 


] 

■s 

1 

59 60 


■gis 

It 

61 62 


1 
& 

■z 

1 

2 
jS 

63 64 


Field 
Indicators 


Sterling 

Sign 
Position 

71 72 73 74 


1 


2 


3 


Position 

21 22 23 24 


z 

z 

25 


1 
O 
26 


S 
1 

27 


Position 

28 29 30 31 


i 

32 


1 
33 


S 
J 

34 


Position 

35 36 37 38 


z 

z 

39 


40 4 


From 

4 45 46 47 


To 

48 49 50 51 


Plus 
65 66 


Minus 
67 68 


Zero 

Blank 

69 70 


$ 


1 


<^ 




F 


I 


L 


E 


I 


N 


P 


T 


6 


B 






4 


^ 






8 


^ 




c 


1 




























































































^ 


2 


<^ 





















R 








^ 


2 






8 


<}> 




c 


2 




























































































^ 


J 























R 








^ 


3 






8 


•J) 




c 


3 


























































































$ 


4 























R 








^ 


4 






8 


^ 




c 


4 
























































































^ 


5 


i 














































































1 








5 




f\l 


D\f\ 






i 


1 






























$ 


(6 


^ 














































































8 






t 


^ 




F 


l\d 


B 






L 


i 






























$ 


7 


^ 














































































1 


1 






2 


^ 




FL 


D 


c 






L 


2 






























4 


S 


^ 
































































i 












G 


8 




18 


^ 




OR 


D\E 


R 




































^ 


9 


^ 


1 










































































2 


1 






3 






F 


L 


D\D 






L 


5 






























I 


(^ 


(!> 


















































! 












! 












3 


9 


1 


4 


(j) 




F 


L 


DF 






L 


3 




























1 


i 


<^ 


1 












































































4 


1 






4 


5 




F 


L 


D 


A 


1 




L 


1 






d) 


1 






















1 


1 


^ 


1 












































































4 


8 






5 


^ 




F 


L 


D 


B 


1 




L 


1 






4 


1 
























3 


^ 














































































6 


8 






7 


^ 




F 


L 


D 


F 






L 


4 






H 
























4 


i> 














































































4 


1 






4 


5 




F 


L 


D 


ft 


2 




L 


1 






02 
























§ 


^ 














































































1 


8 






2 


ij) 




F 


L 


D 


B 


2 




L 


1 






^ 


2 
























(o 
















































































7 


8 






8 


i 




D 


I 


S 


C 


M 


T 













2 
























7 
















































































6 


1 






7 


4 




F 


L 


D 


C 


2 




L 


2 






^ 


2 
























8 


1 














































































7 


5 






7 


7 




S 


H 


I 


p\e\r 




















































































































































































1 






































































































































" ,.._ 1 



Figure 38. Using Field-Record Relation 



4. The split control fields associated 

with a specific indicator must be spec- 
ified together. In Figure 38, the 
control levels associated with indica- 
tor 01 are specified together, and the 
control levels associated with indica- 
tor 02 are specified together. 



7. 



on. The c»ntrol fields without a 
field- record relation are disregarded. 



Each split control field must be either 
alphabetic or numeric throughout. 



5. Split control fields of the same level 
must not be separated. For example, it 
would be incorrect to place a data 
field between FLDA2 and FU>B2 (both 
LI). However, it is permissible to 
place a data field between different 
control levels. For example, the field 
ORDER is between FLDC {L2) and FLDD 
{L3). 

6. If split control fields of one level in 
one type of record are specified with 
and without field- record relation indi- 
cators, only the fields conditioned by 
a field-record relation are valid 
whenever the appropriate indicator is 



MATCHING FIELDS OR CHAINING FIELDS (COLUMNS 
61-62) 



These columns are normally used if the 
input consists of more than one file. It 
enables the program to match or chain the 
records of one file with those of another 
file. 
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Matching Fields 



If a field specified in Field Location also 
has an entry in Matching Fields, the field 
is placed into another main storage area 
known as a matching-field holding area . 

Up to three matching fields (designated 
by M1-M3) are allowed. This entry may be 
used to roatc^ records in different sequen- 
tial files. The second sample program at 
the back of this publication uses matching 
fields in a card input file and a tape 
input file to govern processing of records. 
A discussion of this use of matching fields 
may be found in Processing Multiple Input 
Files . 

DSING THE MATCHING FIELDS SPECIFICATION FOR 
SEQUENCE- CHECKING ; If only one input file 
is specified, fields within the file may be 
sequence- checked by using the matching- 
fields specification. Up to three fields 
within the file may be checked. A chaining 
file may also be sequence-cSiecked. If the 
chaining field is to be sequence-checked, 
it must be defined twice, using two 
different field names. In Figure 39, three 
fields within the inpit file are to be 
sequence- checked. The data from the three 
fields will be moved by the RPG program to 
the matching-field holding area as shown in 
Figure tO. When the second record has been 
read, it will be moved as shown. The com- 
pare operation is made on all three fields 
at the same time. M3 is placed in the 
highest-order position. Ml is placed in 
the low-order position. 
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Figure 39. Using Matching Fields in a 
Single Input File 



Record 2 



Figure 40. Comparing Matching Fields 

In column 18 of the File Description 
Specification sheet the programmer must 
specify if the file is in ascending or 
descending sequence. In Figure 39 assume 
that the file has been specified in ascend- 
ing sequence. The number 003051008 is 
lower than 005025003. Thus, the file is in 
ascending sequence. 



EXIT TO A TRANSLATE SUBROUTINE 



If the sequence of the matching fields is 
not the same as the collating sequence of 
the System/360, the RPG program can provide 
an automatic exit to an external user sub- 
routine that translates the sequence of the 
matching fields to the collating sequence 
of the system. 

An entry in the Processor Control Card 
is all that is required to cause the RPG 
program to branch to the subroutine. The 
automatic branch occurs after the input 
card is read in and before the RPG program 
checks the sequence of the matching field. 

The subroutine to translate the matching 
fields must use the predefined label ALT- 
SIX2. The register conventions for this 
subroutine are the same as those for the 
EXIT operation code. (See Exit to a Sub- 
routii^ . ) The address of the hold area 
containing the matching fields to be tran- 
slated will be contained in Register 1. 
The subroutine must place the translated 
fields back into the matdhing- field holding 
area before it returns control to RPG. 
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The original data fields (to be used for 
controlling, printing, arithmetic calcula- 
tions, etc. ) are not translated by the 
subroutine. 



ified on the line is pliis, minus, or zero 
or blank. 



Chaining Fields 



Plus (Columns 65-66) 



The use of chaining files is explained in 
the section Chaining . Up to three chaining 
fields are permitted in a record. Chaining 
fields cannot be in packed decimal format 
and be specified as n;americ. They must be 
specified as alphameric fields when packed. 
In these columns, enter the code that 
identifies the chaining field CI, C2 , or C3. 



FIELD-RECORD RELATION (COLUMNS 63- 6U) 



A plus condition occurs v^en the value of a 
numeric field is greater than 0. 



Minus (Columns 67-68) 



A minus condition occurs when the value of 
the field is less than 0. 



This specification is used to specify 
records in an OR- relationship when the 
field records are not in the same location. 
Enter in columns 63-6U the appropriate 
resulting indicator which will be on when 
the field is used. An explanation of the 
use of this specification was contained in 
Records in an OR- relationship , and an exam- 
ple of this specification is in Figure 3 6. 



Zero or Blank (Columns 69-70) 



A zero condition occurs if a field contains 
all zeros or all blanks. 



Types of Indicator Codes for Plus, Minus, 
and Zero or Blank 



Using Field-Record Relation with Chaining 
Files 



These columns (63-64) can be iised to ccaidi- 
tion chaining to a specific file. If the 
indicator entered in columns 63-64 is on 
when the chaining technique is used, the 
object program will then get the record 
from the designated file. When this column 
is blank, the chained record will be 
obtained whenever the specified record-type 
is present. 

For example, if MR is entered in Field- 
Record Relation , the field will be used as 
a chaining field only if the matching 
record indicator is on. 

If a field has an indicator (such as 01) 
specified in columns 65-70 which is used 
for conditional chaining, this field must 
precede the chaining field (which has the 
same indicator specified in Field-Record 
Relation) . 



FIELD INDICATORS (COLUMNS 65-70) 



Entries in columns 65-70 are used to test 
the status of a field when it is read into 
the system. This entry is an indicator 
that will be turned on when the field spec- 



if the status of a field is tested so that 
calculation and output specifications can 
be modified, a two-digit field indicator is 
used in the appropriate columns (65-66, 
67-68, or 69-70). These codes, from 01-99, 
can be defined one or more times on the 
Input Specification sheet. If the same 
indicator is defined on more than one 
specification, the last specification exe- 
cuted will determine the status of that 
indicator. 

Using Figure 37, if the input-field 
BALNCE is a plus number, field- indicator 01 
will be turned on. Indicator 01 will 
remain on until a new BALNCE is read in and 
tested. If FIELD2 is a minus number, 
field- indicator 02 will be turned on. If 
AMTDUE is zero or blank, field- indicator 03 
will be turned on. 

Note : The indicator that is turned on 
remains on until the next time the 
field is tested by this particular 
specification. 

Note that defining these indicators 
means that they have been entered in 
appropriate columns of the Input Specifi- 
cation sheet. Using these indicators means 
that they have been specified on the calcu- 
lation or output sheets amd that they are 
tested to determine their status. The 
field indicators will be discussed with the 
output and calculation sheets. 
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HALT INDICATORS 



Nine additional indicator cod^, known as 
halt indicators « can be used in the RPG 
program. These indicators, designated as 
HI through H9, halt the processing of the 
object program when error conditions (as 
determined by the programmer) have been 
detected. These indicators can also be 
used in calculation and output specifi- 
cation sheets to control specifications and 
stop processing. For example: the status 
of a field can be tested, and depending 
upon the results of the tests, a halt indi- 
cator may be set on which will terminate 
the object program. 

If one of these indicators has been 
turned on during the processing of a 
record, the object program is stopped at 
the completion of the processing of that 
record. However, processing will not be 
interrupted if a halt indicator that has 
been turned on is turned off before the 
program attfflnpts to read the next input 
record. 



position, enter an S in column 7 4. Leading 
zeros may be omitted. Leave these columns 
blank if the Sterling Specification is not 
used. Additional infornnation on Sterling 
is in the section Sterling Routines for the 
Report Program Generator at the end of this 
publication. 



SUMMARY OF INPUT SPECIFICATIONS 



This concludes the description of the input 
specifications. Additional information on 
matching or chaining fields may be found in 
Processing Multiple Input Files . The input 
specifications listed are used with the 
calculation and output foirms. The use and 
function of these specifications may became 
more apparent to the reader after the des- 
criptions of the calculation and output 
specifications have been read: 



STERLING (COLUMNS 71-74) 



Enter in these columns the position in the 
record that contains the sign of the Sterl- 
ing field. If the sign is in the normal 



Resulting Indicator 
Field Name 
Control Level 
Matching Fields 
Field Indicators. 
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CALCULATION SPECIFICATION SHEET 



This Sheet is used to specdfy the opera- 
tions to be performed by the object program 
upon the input data and upon data obtained 
as a result of other calculations. Two 
general rules govern the writing of calcu- 
lation specifications: 

1. Each operation is specified on one line 
of the sheet. Operations must be list- 
ed in the order in which they are to be 
performed in the object program. 

2. Detail calculations must precede all 
total calculations, calculations with- 
in these two groups must be specified 
in the order in which they are to be 
performed on the data. 

The calculation sheet is divided into 
three categories as shown in Figure 41: 

1. When calculations are to be performed . 
These entries (columns 7-17) determine 
when the calculations are to be per- 
formed and upon what conditions they 
are to be performed. 

2. What kind of calculations are to be 
performed . These entries (columns 
18-53) determine the kind of calcula- 
tions to be performed, such ais add, 
subtract, multiply, etc. These entries 
also supply information about the 
result of the calculation. 

3. What tests are to be made on the 
results of the calculations . These 
entries (columns 54-59) test the 



results of the calculations to modify 
subsequent calculaticxis or output 
specifications . 



WHEN CALCOIATIONS ARE TO BE PERFORMED 
(GOLOMNS 7-17 



The two specifications in this category are 
control level and indicators. 



CONTROL LEVEL (COLUMNS 7-8) 



calculations are performed either at detail 
time or total time. These columns (7-8) 
indicate the control level of calculations 
performed at total time. An entry (L1-L9, 
LO, JA) in these columns determines the 
control level of the calculation specified 
in columns 18-59. 

A control break for a specific control 
level forces all lower control level indi- 
cators to be turned on. For example, an L3 
break causes L3, L2, and Li indicators to 
be turned on. A blank entry specifies that 
the calculation will be performed at detail 
time. 

A test for a control change is made 
after each record is read into the system. 
Total calculations are performed after this 
test is made and before the record that 
caused the control change is processed. 
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The entries for this specification are 
the control*level indicators L1-L9 and the 
indicators LR and LO. A control level 
indicator is turned on by a control break. 
It is on during total time, and it remains 
on for the following detail time, which 
includes both the calculating and the 
printing of the detail record. An entry of 
I»l-L9 in these columns is obtained from the 
Control Level field on the Input Specifi- 
cation Sheet, columns 59-60. 



LR (Last Record) Indicator 



This indicator is turned on after the last 
input record has been read and calculated, 
and after the appropriate detail records 
are written. At this time, the control- 
level indicators LI through L9 are also 
turned on. 
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Figure 42. Using Control Level Specifi- 
cations 



LO (Level Zero) Indicator 



This indicator is always on during the 
processing of the object program. By 
specifying LO, total calculations can be 
performed even though a control break has 
not occurred. This operation would be 
useful in an application when totals for 
one page of a printed report were to be 
accumulated when no control break had 
occurred. 



AND relationship) may be specified. The 
AND relationship means that if three indi- 
cator codes are specified, all three indi- 
cator conditions must be satisfied before 
the calculation can take place. Enter in 
columns 10-11, 13-14, and 16-17 the indica- 
tors that must be checked when the calcula- 
tion is to be performed. If an indicator 
must be off, enter an N in either column 9, 
12, or 15 (whichever is appropriate). 

The specifications used in these columns 
can be arranged into the following categor- 
ies: 



Using control Level Specifications 



Figure 42 illustrates six control-break 
specifications. If an object program had 
only detail calculations, this specifi- 
cation would be left blank. The indicators 
that control detail calculations are speci- 
fied in columns 9-17. 



INDICATORS (COIUMNS 9-17) 



The entries in columns 9-17 indicate the 
conditions that control the calculations 
specified in columns 18-59. From one to 
three indicator codes (considered to be in 



1. If columns 9-17 and columns 7-8 are 
blank, the calculation specified on the 
line is performed each time a detail 
record is read. 

2. A resulting- iMica tor code determines 
the particular record type on which the 
calculation is to be performed. This 
calculation will not be performed on 
any other record type. 

3. A field- indicator code controls the 
calculation according to the status of 
an input field. 

4. A resulting- indicator code controls the 
calculation by conditions that occurred 
on previous calculations. (This fea- 
ture is shown on the Calculation Speci- 
fication sheet, columns 54-59, but it 
has not been discussed at this time.) 

5. A control- level indicator, L1-L9, used 
with a particular resulting indicator 
permits the calculation to be performed 
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at detail time, but it is performed 
only on the first record of the control 
level specified. 



6. The matching- record indicator code, MR, 
means that the calculation is performed 
only if there is a matching record in a 
second input file. 

7. The halt indicators H1-H9 are normally 
used to terminate the program or to 
suppress a calculation when an error 
has been detected in the input data or 
on a previous calculation. 

8. The overflow indicators permit the 
calculation to take place only if a 
page overflow has occurred. 

9. All total calculations will be bypassed 
until the first control break has 
occurred. 

In addition, this specification entry 
(columns 9-17) may contain a combination of 
some of the preceding categories. Also, a 
calculation may be controlled by the fact 
that an indicator must not be on. 

Figure 43 shows entries that may be made 
in columns 9-17. The numbers to the right 
of the entries refer to the following list: 
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Figure 43. Using Indicators 

1. The first example is a blank entry. 
This means that the calculation is 
performed on every detail record. 

2. In this example, indicator 16 could be 
a resulting indicator for a specific 
record- type. 



3. In this example, indicator 16 could be 
a resulting indicator, and indicator 18 
could be a field indicator, which is 
specified on the Input Specification 
sheet. If indicator 18 is used to test 
an input field for blanks, this entry 
means, in effect, that the calculation 
would be performed if record- type 16 is 
present and the contents of the field 
represented by indicator 18 is not 
blank. 



4. This example is similar to the previous 
example. However, indicator 19 could 
be a resulting indicator, turned on by 
the previous calculation. The calcula- 
tion specified on this line in columns 
18-59 would not be performed unless 
indicator 19 was also on. 

5. This entry means that the calculation 
is performed at detail time on control- 
level 1, and only if indicator 24 is 
on. 

6. This entry means that the calculation 
is performed only if indicator 16 is on 
and there is a matching record 
condition. For example, when fields 
from detail records are multiplied by a 
factor contained in a master record, 
the program must have a way of insuring 
that the detail record has been matched 
with the appropriate master record. 

7. The entry of HI prevents the object 
program from performing the calculation 
if an error condition has occurred. 
Note that when an error occurs, the job 
is not terminated until after all proc- 
essing for the record has been complet- 
ed. This facility is provided so that 
the programmer can prevent the calcula- 
tion of erroneous data. 

8. This entry means that the calculation 
is performed on the detail cycle fol- 
lowing an overflow condition. 



KINDS OF CALCULATIONS TO BE PERFORMED 



This section describes the kind of calcula- 
tions to be performed. These specifi- 
cations answer the following three ques- 
tions: 

1. What fields are to be used? 

2. What is the operation (add, subtract, 
multiply, etc.)? 

3. What is done with the result? 
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FACTOR 1 (COLUMNS 18-27) 



Figure 44 illustrates entries for 
Factor 1. 



This specification can be a field ncune or a 
literal. If it is a field name it must 
have been defined on the Input Specifi- 
cation sheet, or it must have been defined 
in the result field of another calculation. 
The field name must be left- justified, and 
the first character must be either alpha- 
betic or a, #, or $. 



Literals 



A literal is the actual data to be operated 
on, rather than a name representing the 
location of data. Literals may be numeric 
or alphabetic. Numeric literals may be up 
to ten characters long. Alphameric liter- 
als may be up to eight characters long. 

NUMERIC LITERALS; A numeric literal must 
consist of any combination of the digits 
0-9. A numeric literal can also have spec- 
ified a leading plus or minus sign and/or 
one decimal point. 

Rules for Forming Numeric Literals ; 

1. Blanks must not appear within a numeric 
literal . 

2. The sign, if present, must be the left- 
most character. If a literal is 
unsigned, it is treated as a positive 
literal . 

3. The decimal point can appear anywhere 
in the literal. 

4. Numeric literals must not be enclosed 
in quote symbols. 

ALPHAMERIC LIT3SRALS; Any set of consecu- 
tive characters enclosed in a set of 
single-quote symbols is treated as an 
alphameric literal. AljAiameric literals 
may be used for compare operations, but 
they may not be used in computations. 

Rules for Forming Alphameric Literals ; 

1. Any character may be used in an alpham- 
eric literal. Blanks are treated as 
valid characters in the body of the 
literal . 

2. Alphameric literals must be enclosed in 
a set of single-quote symbols. 

3. A single quote symbol may be contained 
within a literal by entering an addi- 
tional single quote symbol within the 
literal. For example, the literal 
o'clock would be coded as 'o* 'clock*. 
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Figure 44. Factor 1 

1. GROSS could be a field name specified 
on the input sheet. 

2. NETAMT could have been specified as the 
result field of the previous calcula- 
tion. 

3. This numeric literal could be used in 
the program to determine if specific 
fields in the input records were higher 
or lower than this number. The decimal 
position must be indicated (if the 
number is not a whole number) tmt ccmr- 
mas must not be used. 

4. Alphameric literals like the one in 
this example can be used to compare 
against a data field in the input 
records to perform certain types of 
calculations, only upon records rep- 
resenting the month of January. 

The discussion of Factor 1 also applies 
to Factor 2. 



SUMMARY OF FACTOR 1 AND FACTOR 2 



Enter either the name or the literal 
that is Factor 1 or Factor 2 in columns 
18-27, or 33-42. 

If Factor 1 or Factor 2 contains the 
name of a field, the field must be 
defined in either; 

a. Columns 53-58 (Field Name) of the 
Input Specification sheet. 
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b. Columns 43-48 (Result Field) of the 
Calculation Specification sheet. 



3, A name cannot exceed six characters. 
Special characters and blanks must not 
be used. 



I Turning Indicators 
I ON or OFF 

I Set Indicators On ..... 
Set Indicators Off .... 



Code I 

SETON I 
SETOF I 

J 



4. A literal cannot exceed ten characters. 

5. Entries in Factor 1 or Factor 2 must be 
left- justified. 



OPERATION (COLUMNS 28-32) 



j Table Operations 
j Table Lookup 



Code I 
LOKUP I 



I 



Conversion Routine 
Operations 



External Conversion Routine 
Record Key 






Code I 

. EXTCV I 
, KEYCV I 



Entries in these columns specify the opera- 
tion to be performed using Factor 1, Factor 
2, and the Result Field. Each operation is 
specified by placing the operation code in 
the operation field (Columns 28-32) . 



Arithmetic Operations Code | 

I Add ADD I 

I Zero and Add Z- ADD j 

I Subtract SUB j 

I Zero and Subtract Z-SOB | 

I Multiply MULT | 

I Divide , . . DIV j 

I Move Remainder MVR j 



H 



Move Operations 



Code 






Move 

Move-Leftmost- Data-Chara cters 

Move Low-to-High Zone 

Move High- to- Low Zone 

Move High-to-High Zone 

Move Low- to- Low Zone . . 



MOVE 

MOVEL 

MLHZO 

MHLZO 

MHHZO 

MLLZO 



L.. 



j Testing or Compare Operations Code | 



Compare 
Test Zone 



COMP I 
TESTZ I 



ARITHMETIC OPERATIONS 



The fields or literals involved in this 
operation may contain numeric characters 
only. All arithmetic operations are per- 
formed with automatic decimal alignment. 
No arithmetic overflow will be sensed by 
RPG. The length of a field involved in 
arithmetic operations can be up to 15 
digits (this includes decimal alignment 
when necessary) . The resulting field 
length after decimal alignment must not be 
greater than 15 digits. 



ADD (ADD) 



This operation causes the contents of the 
field or the literal in Factor 2 to be 
added, algebraically, to the contents of 
the field or literal in Factor 1. The 
result of the operation is placed in the 
result field specified in columns 43-48. 



j Branching and Exit Operations Code | 

I Branching (or Go To) GOTO j 

I Providing a Label for GOTO . . TAG j 

I Exit to a Subroutine EXIT | 

I RPG Label RLABL | 

I User Label ULABL | 



ZERO AND ADD (Z-ADD) 



This operation causes the result field to 
be set to zeros and then causes the data 
contained in the numeric literal or the 
field in Factor 2 to be placed in the 
result field. Factor 1 is not used in this 
operat ion . 
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SUBTRACT (SUB) 



This operation causes the contents of the 
field or literal in Factor 2 to be sub- 
tracted, algebraically, from the contents 
of the field or literal in Factor 1. The 
result of this operation is placed in the 
result field specified. 



ZERO AND SUBTRACT (Z-SUB) 



Field) + (Number decimal positions 
of Factor 2) - (Number decimal 
positions of Factor 1) 

If A=0, no adjustment takes place. 

If A>0, the dividend will be adjusted. 

If A<0, the divisor will be adjusted. 

The amount of adjustment (the number of 
zeros added to the right of the units 
position) is determined by the absolute 
value of A in the preceding formula. 



This operation causes the negative of the 
number contained in the literal or the 
field in Factor 2 to be placed in the 
result field specified- This operation is 
performed after the result field has been 
set to zeros. Factor 1 is not used in this 
oper at ion . 



MULTIPLY (MULT) 



This operation causes the contents of the 
field or literal in Factor 1 to be multi- 
plied algebraically by the contents of the 
field or the literal in Factor 2. The 
result of this operation is placed in the 
result field specified. 



DIVIDE (DIV) 



This operation causes the contents of the 
field or literal in Factor 1 to be divided 
by the contents of the field or literal in 
Factor 2. The result of this operation 
(quotient) is placed in the specified 
result field. The contents of the field or 
the literal in Factor 2 cannot be zero. If 
Factor 2 is zero, a program check and an 
abnormal end-of-job will result. Any 
remainder that results from this operation 
is lost unless the move- remainder operation 
is specified as the next operation. 

Note : If a move remainder operation 
follows a divide operation, the result 
in the divide operation cannot be half- 
ad jus ted. 

In this operation, RPG performs the 
adjustment of fields (divisor and dividend) 
when necessary. The divisor and dividend 
are adjusted by addir^ zeros to the right 
of the units position of that field. The 
following formula determines whether or not 
field adjustment is necessary: 

A = (Number decimal positions of Result 



MOVE REMAINDER (MVR) 



This operation is used to move the 
remainder from a divide operation to a 
separate field that has been set to zero by 
the RPG processor. If MVR is used, it must 
follow the divide operation. Figure 45 
shows an example of the MVR operation. The 
remainder is placed in a field named STORE. 
The field that contains the remainder must 
be specified in the result field. 

The value of the remainder can be deter- 
mined by the following formula: 

R «= Dividend - (Divisor) (Quotient) 

The decimal positions of the remainder 
following the DIV operation are equal to 
the dividend decimal length (adjusted) . 

Note: A move remainder operation can 
specify resulting indicators. 



MOVE OPERATIONS 



For the MOVE and MOVEL operations, unpacked 
numeric fields may be changed to alphameric 
fields, and packed al^^americ fields may be 
changed to numeric fields. To change a 
numeric field to an alphameric field. Fac- 
tor 2 is numeric, and the result field is 
specified as alphameric. To change an 
alphameric field to a numeric field. Factor 
2 is alphameric, and the result field is 
specified as numeric. No decimal alignment 
is performed when a move operation is used. 
When moving an alphameric field to a numer- 
ic field, a validity check is not performed 
on the sign of the result field. The 
result field will contain the standard plus 
or minus sign. 

Note: A move operation cannot specify 
resulting indicators. 
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Figure 45. Using the MVR Operation Code 



MOVE (MOVE) 



This operation code causes data characters 
(starting at the rightnnast position) to be 
moved from the field or literal contained 
in Factor 2 to the rightmost positions of 
the result field. 

If Factor 2 is longer than the result 
field, the excess leftmost positions of 
Factor 2 are not moved. 

If the result field is longer than the 
field specified by Factor 2, the positions 
to the left of the data that is moved 
remain undisturbed. 



If Factor 2 is longer than the result 
field, the excess rightmost positions of 
Factor 2 are not moved. 



If the result field is longer than the 
field specified by Factor 2, the positions 
to the right of the data that is moved 
remain undisturbed. When moving data to a 
numeric field, the sign of the result field 
is retained, except when Factor 2 is as 
long or longer than the result field. In 
this case, the sign of Factor 2 is assumed. 



Factor 1 is not referenced in this oper- 
ation. 



Factor 1 is not used in this operation. 



MOVE LEFT (MOVED 



This operation code causes (starting at the 
leftmost position) data characters to be 
moved from the field or literal contained 
in Factor 2 to the leftmost positions of 
the result field. 



Figure 46 shows a use of this operation 
code. FLDA contains a five-position number 
(10000). FLDB is a four-position field. 
The result of the MOVEL is 1000 in FLDB. 
In this example, the MOVEL operation code 
performs the same function as dividing FLDA 
by 10. 
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Figure 46. Using the MOVEL Operation Code 
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MOVE HIGH- TO- LOW ZONE (MHLZO) 



This operation moves the zone at the left- 
most position of Factor 2 to the rightmost 
position of the result field. Factor 2 can 
only be alphameric. If the zone to be 
moved is located over numeric data, this 
operation can still be performed; however, 
the numeric field must have been specified 
as an alphameric field on the Input Speci- 
fication sheet. The result field can be 
numeric or alphameric. A result field 
specified as numeric always contains the 
standard plus or minus zone after this 
operation. Figure U7 illustrates this 
operation. 
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Figure 47. Move High- to-Low Zone Operation 



MOVE LOW-TO-HIGH ZONE (MLHZO) 



This operation moves the zone at the right- 
roost position of Factor 2 to the leftmost 
position of the result field. Factor 2 can 
be numeric or alphameric, but the result 
field must be alphameric. 



the result field are alphameric or numeric. 
A result field specified as numeric always 
contains the standard plus or minus zone 
after this operation. 

Figure 48 illustrates the movement of 
zones for all of the preceding four opera- 
tion codes. 
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Figure 48. Move Zone Operation 



TESTING OR COMPARE OPERATIONS 



COMPARE (COMP) 



This operation causes the contents of the 
field or the literal in Factor 1 to be 
compared against the contents of the field 
or literal in Factor 2 . The outcome of 
this operation can be used to turn on an 
indicator that has been specified in 
columns 54-59 (Result Indicators High, Low, 
or Equal). These indicators are turned on 
as follows: 



High 



Low 



Factor 1 is greater 
than Factor 2. 

Factor 1 is less 
than Factor 2. 



MOVE HIGH-TO-HIGH ZONE (MHHZO) 



Equal Factor 1 is equal 
to Factor 2. 



This operation moves the zone at the left- 
most position of Factor 2 to the leftmost 
position of the result field. Factor 2 and 
the result field must be alphameric. 



MOVE LOW- TO-LOW ZONE (MLLZO) 



This operation moves the zone at the right- 
roost position of Factor 2 to the rightmost 
position of the result field. Factor 2 and 



This operation is used to make compari- 
sons to alter or modify subsequent calcula- 
tions. No result field is specified. 

• The Factor- 1 and Factor- 2 fields are 
aligned according to whether they are 
numeric or alphameric. If numeric 
fields are compared, fields of unequal 
length are aligned to the implied deci- 
mal point. 

• Missing digits in numeric fields are 
assumed to be zeros. 
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Figure 49. Using TEST ZONE 



If alphameric fields are compared, 
fields of unequal length are aligned to 
their leftmost characters. 



• The alphameric compare operation is 
based upon the internal collating 
sequence of the system. 

• For numeric fields, the maximum field 
length is 15 digits. 

• For alphameric fields of equal length, 
the maximum field length is 256 charac- 
ters. For alphameric fields of unequal 
length, the maximum field .length is 40 
characters. 



TEST ZONE (TESTZ) 



This operation is used to test the zone of 
the leftmost position of the alphameric 
field that is entered in the result field. 
(The result field must be alphameric.) If 
the result of the test is a 12-zone (plus), 
the indicator specified in columns 54-55 
will be turned on. If the result of the 
test is an ll-2one (minus), the indicator 
specified in columns 56-57 is turned on. 
Any other zone turns on the indicator spec- 
ified in columns 58-59. 

Figure 4 9 shows an example of this oper- 
ation. When indicator 25 is on, the field 
DATA is tested. If the leftmost position 
has a 12-zone, indicator 01 is turned on. 
If the leftmost position has an 11- zone, 
indicator 02 is turned on. 

If an cunpersand is tested, it is consid- 
ered as a 12-zone. A minus is considered 
an 11- zone. 



BRANCHING AND EXIT OPERATIONS 



This operation code enables the progreunmer 
to transfer control from the RPG program to 
a user subroutine. Factor 2 contains the 
name of the subroutine. See EXIT to a 
User's Routine for a complete discussion of 
this operation. 



RPG LABEL (RLABL) 



This operation provides the facility for a 
subroutine, external to the RPG program, to 
reference a field in the RPG program. The 
name of the field to be referenced is 
entered in the result field. 

Note: When Table Name is specified as 
an RLABL, the address supplied is that 
of the leftmost position of the table 
holding area . 



USER'S LABEL (ULABL) 



This operation enables the RPG program to 
reference a field contained in a user sub- 
routine. The name of the field to be ref- 
erenced is entered in the result field. 
The field length must be defined. 



BRANCHING OR GO TO (GOTO) 



The operation code GOTO enables branching 
to occur in the object program. This means 
leaving one point in the program to begin 
operations at some other location in the 
program. The location of the other routine 
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is iden-tified by a name. This name is 
entered in Factor 2 and the code GOTO is 
entered in Operation (columns 28-31). For 
example « a routine (a group of 
specifications) to calculate the employee 
contribution to the Federal j[nsurance Con- 
tribution Act might be labeled FICA. 
Branching to this routine would require 
that Factor 2 of the GOTO operation con- 
tains the name FICA and that the first 
operation in the routine be a TAG opera- 
tion; that is, an operation that defines 
the name of the routine (refer to descrip- 
tion of next operation code). 



Branching can be performed within detail 
calculations or within total calculations, 
but not between detail and total calcula- 
tions. Branching can be forward (skipping 
over specifications) or backward (going 
back to specifications previously skipped 
or processed). (For additional informa- 
tion, see Using the Calculation Specif i- 
cation sheet. ) 



PROVIDING A LABEL FOR GOTO (TAG) 



TURNING INDICATORS ON OR OFF 



SET INDICATORS ON (SETON)- 



This operation code causes the indicators 
specified in columns 54-55, 56-57, or 58-59 
to be turned on. 

Note : The column headings of plus, 
minus, or zero and high, low, or equal 
have no meaning during this operation, 
and should be ignored. Columns 54 
through 59 are used for this operation 
code merely to record three sets of 
indicator codes. 

Specify the first indicator in columns 
54-55, the second indicator in columns 
56-57, and the third indicator in columns 
58-59. One use of this specification is to 
turn on a halt indicator when input records 
are out of sequence. Any RPG indicator may 
be turned on. Figure 50 shows an example 
of this facility. The 01 is an indicator 
that is set on for the first record of a 
sequence. The L3 is a control level that 
occurs with the first record of the 
sequence. If such a sit\iation (L3 and 01) 
does not occur, the halt indicator HI is 
turned on. 



The operation TAG (columns 28-30) provides 
a name to which the program can branch. 
Enter this name in Factor 1 and the code 
TAG in operation (columns 28-32). The name 
will be used as Factor 2 of the operation 
code GOTO. If the specifications in the 
TAG routine occur at total time, then the 
TAG operation must have LO specified in 
control Level . If they occur at detail 
time, a control specification is not 
required. 



SET INDICATORS OFF (SETOF) 



This operation code causes the indicators 
specified in columns 54-55, 56-57, or 58-59 
to be turned off. Any RPG indicators may 
be turned off. When an L3 break occurs, 
L1-L3 are turned on. If the user did not 
want LI on, he could have turned it off by 
using the SETOF operation code. 
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TABLE OPERATIONS 



CONVERSION ROUTINE OPERATIONS 



TABLE LOOKUP (LOKUP) 



EXTERNAL CONVERSION ROUTINES (EXTCV) 



This operation code causes the field name 
contained in Factor 1 to be used as the 
search argument in a table lookup opera- 
tion. Factor 2 contains the name of the 
table to be searched, and the result field 
contains the table from which the associat- 
ed function will be obtained. Decimal 
alignment is not performed for this opera- 
tion. (The result field may be left blank 
if the user wants to determine if an argu- 
ment is present in the table, but does not 
require the corresponding function.) 



After the lookup operation is completed, 
the function that is retrieved is placed in 
a special holding area within the function 
table. The name of this area is the same 
as the name of the function table . The 
retrieved data remains in this area until 
the next table lookup operation. 



This operation is used to indicate the 
point in the RPG program where the randcwn 
address conversion routine is to be per- 
formed. Factor 1 contains the internal RPG 
label as specified in columns 27-32 of the 
File Extension Specification sheet. Factor 
2 must contain the label of the external 
address conversion routine. The result 
field contains the name of the field that 
will contain the track address. The track- 
address length is always eight characters. 

Note: All EXTCV operations must be 
specified as the initial entry(s) on 
the Calculation Specification sheet. 
Up to 4 of these opei'ations are 
permitted. 



RECORD KEY (KEYCV) 



To utilize the function in another oper- 
ation (for example in an arithmetic 
operation), the name of the function table 
is specified in Factor 1 or Factor 2 . In 
this case, the function table name in Fac- 
tor 1 or Factor 2 refers to the special 
holding area in the function table. 



"^^ update the function table (for exam- 
ple, a move operation to replace the old 
function with the new updated function), 
the name of the function table is specified 
in the Result Field . The new function is 
then placed in its proper place in the 
function table. and in the special holding 
area. In this case, the function table 
name in the result field refers to the 
location of the function within the func- 
tion table and within the special holding 
area. 



This operation code establishes the name of 
the field that is to contain the key of the 
disk record. (It is used only when records 
are retrieved using record key data. ) The 
code KEYCV is placed in Operation (columns 
28-32) and the name of the key field is 
placed in Result Field (columns U3-48). 
The field length and decimal positions must 
be specified. 

If the records are retrieved by key 
field, this operation must follow its EXTCV 
operation. The name of the field that will 
contain the record key cannot be declared 
in the external conversion routine. 



FACTOR 2 (COLUMNS 33-42) 



The discussion of Factor 1 also applies to 
Factor 2. 



After each table lookup operation, the 
retrieved function should be used (or moved 
from the special holding area to another 
location) before the next table lookup 
operation is performed. Each subsequent 
lookup operation overlays the function 
obtained from the previous lookup opera- 
tion. 



See Using Tables in the Object Program 
for additional information and examples of 
table lookup operations. 



RESULT FIELD (COLUMNS 43-'* 3) 



The name of the result field, which is 
entered in these columns, sets up a loca- 
tion in storage to contain the result of a 
calculation. The name of the result field 
must consist of alphameric characters, or 
S, #, or $, and must be left- justified. 

The same name can be used several times 
in different calculations if the length of 
the field and the number of decimal posi- 
tions are the same for all calculations. 
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Figure 51. Result Field Entry 



Figure 51 shows the result-field entry. 
On the first line GROSS is multiplied by 
DRATE, and the result field is DISCNT. 
DISCNT is then used as Factor 2 on the next 
line to calculate the net amount. The same 
result field is then used as Factor 1 on 
the next line to calculate total discount. 



mal positions can be specified. In Figure 
51 each result field has two decimal posi- 
tions . 



If the result field is alphameric, this 
column must be left blank. 



FIELD LENGTH (COLaMNS 49-51) 



This entry specifies the length of the 
result field. The entry must specify the 
number of positions to be reserved for the 
result field. In Figure 51, DISCIW is 
eight positions long. The unpacked length 
must be specified. The maximum numeric 
field length is 15 digits, and the maximum 
alphameric field length is 256 characters. 

If the same field name is used for more 
than one calculation and the field length 
and the number of decimal positions are the 
same, the field- length specification need 
not be specified more than once. 

Note ; If Result Field contains a table 
name, these columns must be left blank. 



DECIMAL POSITION (COmMN 52) 



HALF- ADJUST (COLUMN 53) 



This specification is used to half-adjust, 
or round, the result field. Enter an H in 
this column if the data in the result field 
is to be half-adjusted. 



Half-adjusting is accomplished in the 
object program by adding a 5 to the right 
of the last position retained in the result 
field. 



In Figure 51, DISCNT is half- ad justed. 

This completes the description of the 
specifications required for determining the 
kind of calculations to be performed. 



An entry in this column indicates the num- 
ber of positions to the right of the deci- 
mal point in the result field. An entry 
must be made in this column for all arith- 
metic operations if the field has not been 
defined previotisly. If the result field 
does not have any decimal positions, the 
entry roust be a 0. A maucimum of nine deci- 



TESTING THE RESULTS OF A CALCUIATION 



The last category of the Calculation Speci- 
fication sheet is used to test the results 
of the calculation. 



66 



RESULTING INDICATORS (COLUMNS 54-59) 



An entry in columns 5U-59 may be used to 
test the value of a result field after the 
coir^letion of an operation. As a result of 
the test, an indicator may be tiirned on 
that can be used to control subsequent 
operations or to control output operations. 
A result-field indicator must be specified 
when using a ccsnpare or a table-lookup 
operation. If the same indicator is defined 
on more than one specification, the last 
specification executed will determine the 
status of that indicator. 

The entries in columns 5U-59 are used in 
five ways: 

1. To determine whether the result of an 
arithmetic operation is plus, minus, or 
zero. 

2. To test the result of a compare opera- 
tion. 

3. To test the result of a table- lookup 
operation. 

4. With the test-zone operation 

5. With the set-indicators-on and set- 
indicators -off operations. 



If a compare operation was performed, 
the indicator is set on vAien Factor 1 is 
higher than Factor 2. 

If a table- lookup operation was per- 
formed, enter the indicator that will be 
set on when the table argument next higher 
than the search argument is found. 



Result Field Indicator (Minus or Low) 
Columns 56-57 



Enter in these columns a two-digit indica- 
tor that will be set on vAen the result 
field, in an arithmetic operation, is a 
minus number. 

If a compare operation was performed, 
enter a two-digit indicator that will be 
set on when Factor 1 is lower than Factor 
2. 

If a table- lookup operation was per- 
formed, enter a two-digit indicator that 
will be set on when the table argument next 
lower than the search argument is found. 

In Figure 52, DISCNT is subtracted from 
GROSS and the result is stored in NETAMT. 
If the answer is a minus number, indicator 
10 is set on. If the answer is zero, indi- 
cator 15 is set on. 



Result Field Indicator (Plus or High) 
Columns 5U-55 



Result Field Indicator (Zero or Equal) 
Columns 58-59 



Enter in these columns a two-digit 
indicator that will be set on wten the 
result field, in an arithmetic operation, 
is a plus number. 



Enter in these columns a two-digit indica- 
tor that will be set on tAen the result 
field, in an arithmetic operation, is zero. 
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Figure 52. Result Field Indicators 
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If a compaire operation was performed, 
enter a two-digit Indicator that will be 
set on when Factor 1 is equal to Factor 2. 



If a table- lookup operation was per- 
formed, enter a two-digit indicator that 
will be set on when the search argument is 
equal to an argument found in the table. 



In Figure 52, the literal JANUARY is 
con^ared against the contents of DATE. If 
the result is equal, indicator 24 is turned 
on. 



USING THE CALCUIATION SPECIFICATION SHEET 



Figure 53 illustrates entries on the calcu- 
lation Specification sheet that are used in 
part of a payroll application. The entries 
on the sheet are discussed by line number. 



Note: The blank spaces signify that 
additional calculations have been spec- 
ified, but in this example they have 
been craitted. 



COMMENTS (COLUMNS 60-74) 



These columns may be used for comments. 



010 



020 



Explanation 

The program branches to GRSPAY 
from some other detail calcula- 
tion (not shown in this 
example) . 

The number of hours the employ- 
ee worked are compared with the 
literal 40. If the employee 
worked more than 40 hours, 
indicator 20 is turned on. 
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If indicator 20 is on, three 
calculations are performed. 
The literal 40 is subtracted 
from the number of hours worked 
and the overtime hours are 
placed in the field OVERHR, 
which is a three- posit ion field 
with one decimal position. 
RATE is multipli,ed by OVERHR 
and the result is placed in the 
field SAVE, which is a six- 
position field with two decimal 
positions. SAVE is multiplied 
by the literal 1.5 (which is 
the overtime premium rate). 
The result is placed back in 
SAVE, and it is half-adjusted. 

RATE is multiplied by 40, emd 
the result is stored in GROSS. 
This operation is performed 
whether or not the employee 
worked any overtime. It is not 
performed if the employee has 
worked less than HO hours. 

GROSS is added to SAVE. 

The program branches to the 
label FICA, if indicator 22 is 
off. 

Additional calculations. 

The operation code TAG provides 
the label FICA. The RPG 
program branches to this label. 

GROSS is multiplied by the 



120 



130 



lao 



150 



160 



170 

180 
190 



literal .03 euid the result is 
placed in the field DFICA, 
which is a six-position field 
with two decimal positions. 
The result is half -ad justed. 

DFICA is added to YDFICA and 
the result is placed in the 
field HOLD. 

The contents of HOLD are ccan- 
pared with the literal 144.00, 
and if HOLD is less than, or 
equal to, 144.00, indicator 21 
is turned on. 

If indicator 21 is on, the 
program branches to the label 
ADFICA. 

YDFICA is subtracted from the 
literal 144.00 and the result 
is placed in DFICA. 

The operation TAG provides the 
label ADFICA to ^ich the pro- 
gram can branch (either from 
the specification on line 140 
or sequentially from the speci- 
fication on line 180). 

DFICA is added to YDFICA and 
the result is stored in YDFICA. 

Add it ional cal cula t i ons . 

The operation code TAG provides 
the label WHTAX to which the 
RPG program can branch. 
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OOTPUT-FORMAT SPECIFICATION SHEET 



Entries on the Output- Format Specif icati on 
sheet specify: 

1. The kind of output that will be pro- 
duced. 

2. The location of the specific data 
fields in the output reports and 
records . 

The specifications for this sheet can be 
divided into two categories as shown in 
Figure 54: file identification and con- 
trol, and field description. 

FILE IDENTIFICATION; These entries specify 
the output files and the records to be 
written on the file. 

FIELD DESCRIPTION; These entries indicate 
the position of each field in the output 
record. Each field is written on a separ- 
ate line of each sheet, and each field is 
written below its corresponding record 
entry. 



FILE IDENTIFICATION AND CONTROL 



FILE NAME (COLUMNS 7-14) 



A file name is assigned to each output 
file. The file name must be left- 
justified, and it must begin with an 



alphabetic character. The file name may be 
alphameric, but it must not contain special 
characters or blanks. 



When writing the output specifications, 
the file name need only be entered once. 
Enter it on the first line to define the 
file as shown in Figure 55. 
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Figure 55. Specifying Heading, Detail / and 
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TYPE H/D/T (COLUMN 15) 



The entry in this column identifies the 
type of record being specified. The fol- 
lowing three entries are used for this 
specif ication : 



H Heading Record 

D Detail Record 

T Total Record 

All heading records for the file must be 
entered first, followed by all detail 
records, and then by all total records (see 
Figure 55, column 15). 



HEADING RECORDS; These records usually 
contain constant information. However, 
they also contain information from input 
records, including the record present at 
the time the output record is produced. 



r— 



IBM 2520 



Pocket 



Code 

1 I 1 or blank 

2 i 2 

IBM 2540 
Pocket Code 

I 
PI I 1 

P2 I 4 or blank 
RP3 I 8 



Note: When punched output is speci- 
fied, the last card will not be put out 
automatica lly . 



For information concerning the stacker 
selection of combined files, refer to the 
section Ccsnbined Files Stacker Select. 



DETAIL RECORDS; These records have a 
direct relationship to the input record. 
Most data in a detail record comes from the 
input record or from calculations performed 
at detail time. 



SPACE (COLUMNS 17-18) 



TOTAL RECORDS; Operations upon fields from 
the input record are preceded by the test 
for control-field changes, the performance 
of total- time calculations, and the forma- 
tion of total records. Tlius, data from an 
input record that causes a control-field 
change cannot contribute data to total 
records that result from that control 
change. But heading and detail records can 
contain data from the input record. 



This specification (and the next specifi- 
cation Skip , columns 19-22) is used to 
provide the proper spacing of printed 
reports . 



Note ; If the record is to be printed, 
at least one entry is required in 
columns 17-22. 



STACKER SELECT (COLUMN 16) 



If punched output occurs in the object 
program, a stacker number is entered in 
this column. The cards fall in the stacker 
that is indicated by this column. The 
stacker pockets and their acceptable codes 
are listed below; 



Space Before (Column 17) 



Enter in this column the number of lines to 
be spaced before the line is printed. 
Specify zero, one, two, or three spaces 
before printing by placing the entry 0, 1, 
2, or 3 in column 17. 



I IBM 1442 I 

I Pocket code j 

I 1 1 1 or blank | 

1^ 2 I ^ J 



Space After (Column 18) 



Specify zero, one, two, or three spaces 
after printing by placing the entry 0, 1, 
2, or 3 in column 18. Enter a zero in this 
column to specify no space after printing. 
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SKIP (COLUMNS 19-22) 



This specification provides for the proper 
spacing of reports. It is directly related 
to the function of the printer carriage- 
control tape. 

Skip Before (Columns 19-20) . The 
entries 01-12 cause the printer carriage to 
skip to channels 1 through 12 of the car- 
riage tape before the line is printed. 

Skip After (Columns 21-22) . The entries 
01-12 cause the printer carriage to skip to 
channels 1 through 12 of the carriage tape 
after the line is printed. In Figure 55, 
before the heading line is written, the 
form skips to channel 1. 

Note: The order in which spacing and 
skipping is performed is as follows: 

Skip Before 

Space Before 

Skip After 

Space After 

If both Space After and Skip After are 
specified, only Skip After is per- 
formed. 



trol break has occurred. If one has 
occurred, all total lines (caused by 
the control break) are printed, and 
then any overflow printing specified is 
performed. 

2. If the overflow indicator is on before 
a total line is printed, all total 
lines, whose output indicators are on, 
are printed, and this is followed fcy 
any specified overflow printing. 



Automatic Skipping 



If an overflow indicator is not specified 
on the File Description Specification sheet 
for a file (and the Skip or Space columns 
on the Output- Format Specification sheet 
contain an entry) the RPG program provides 
automatic skipping from channel 12 to chan- 
nel 1 for the object program. 

If an overflow indicator is specified on 
the File Description Specification sheet 
for a file, and none of the records of the 
file are conditioned by overflow on the 
Output-Format Specification sheet, automat- 
ic skipping will also occur. 



Printing Lines Conditioned by Overflow 



Overflow Indicator 



Carriage overflow, causes the setting of 
the indicator as specified by the user in 
the file-description specifications 
(columns 33-3t*). 

When a punch in channel 12 of the con- 
trol tape is sensed the overflow indicator 
is turned on. It remains on for one com- 
plete processing cycle; it turns off after 
the heading and detail lines of the next 
record are printed. Because the overflow 
indicator is on during calculations, it can 
control calculation specifications. 

A test for the overflow status is made 
by the object program immediately before 
each line of the report is printed (but 
after any Space Before specifications are 
executed) . Two conditions can occur at 
this time: 

1. If the overflow indicator is on before 
a detail line is printed, the detail 
line, and any other detail lines whose 
output indicators are on, are printed. 
Any Space After specifications are 
executed, the next record is read, and 
a test is made to determine if a con- 



In the upper half of Figure 56, the detail 
line 010 specifies that if a level-1 con- 
trol break does not occur on this cycle, 
but has occurred on the previous cycle, 
indicator 25 is turned OFF. The total line 
020 specifies that if a level-1 control 
break has occurred, indicator 25 is turned 
ON. Indicator 25 remains on for an extra 
total cycle because: 

1. If overflow has occurred at detail 
time, it will be sensed at total time, 
and 

2. The overflow routine is executed after 
the control level-1 indicator (LI) has 
been turned off. 

To prevent the line from printing twice, 
thus providing an error in the printed 
report, the line is coded as shown in the 
lower half of Figure 56. By making the 
condition mutually exclusive, the line is 
not printed twice. 

The order in which the object program 
prints lines conditioned by overflow fol- 
lows: 

1. When overflow occurs during the print- 
ing of a heading or detail line, the 
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Figure 56. Specifying Output Indicators 



object program does not immediately 
print lines conditioned by overflow. 
The program does, however, take note 
that the overflow condition has 
occurred. 



7. All detail calculaticms are executed at 
this time, including the detail calcu- 
lations conditioned on overflow (see 
Figure 26). 



2. All total calculations are executed at 
this time, including the total calcula- 
tions conditioned on overflow. 

3. Total lines not conditioned by overflow 
are printed. 

4. The object program then t^ts to see if 
overflow has occnirred. 

5. Total lines conditioned by overflow are 
printed. 

6. Heading and detail lines conditioned by 
overflow are printed. 



Mote ; If an overflow condition has 
been specified, autcxnatic skipping is 
not performed. 



Multiple Printers 



With this program, it is possible to use a 
maximum of three output printer files for 
each RPG object progrcwi. When producing 
records for more than one printer, the user 
specifies a unique overflow indicator for 
each printer. 
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In coltunns 33-34 of the File Description 
Specification sheet, one of three available 
overflow indicators is entered. The line 
on the Pile Description Specification sheet 
which is used to define the output printer 
file may contain one of these indicators in 
columns 33-34: OA, OF, or OV. 



OUTPOT INDICATORS (COLUMNS 23-31) 



2. Special indicators (LR, HI, MR, etc). 

3. Field indicators (columns 65-70 of the 
Input Specification sheet) . 

Note: When an output record is not 
conditioned by any resulting indica- 
tors, the record is conditioned 00. 



This specification may be lased for either 
file identification (in this case, at least 
one output indicator must be specified) or 
field description . Entries in this column 
may' specify a maximum of three indicators. 
These indicators control: 

1. When the line is to become output, or 

2. When a particular field is to be writ- 
ten. 



NOT (COLUMNS 23, 26, AND/OR 29) 



If any of the output indicators must be 
off, enter an N in column 23, 26, or 29 
(whichever is appropriate). 



EXAMPLES OF OUTPUT INDICATORS 



The following information applies only 
to its use in the file identification line. 

If more than one indicator is specified 
on one line, all indicators are considered 
in and AND relationship. That is, all 
conditions specified must be satisfied 
before the output condition can be execut- 
ed. 

If the object program requires that more 
than three indicators be in and AND rela- 
tionship, the letters AND are entered in 
columns 14-16 of the following line, and 
the additional indicators are specified on 
that line. If one of the indicators is an 
overflow indicator (OA, OF, or OV) , it must 
not appear on the same line as the AND. 

If the output condition is executed in 
an OR- relationship (one or the other of two 
sets of conditions) the letters OR are 
entered in columns 14-15 of the following 
specification line, and the OR indicators 
are specified on that line. 

Additional specification lines can spec- 
ify as many output indicators in either an 
AND or OR relationship as required by the 
object program. Each additional line must 
begin with AND or OR in column 14. 



Permitted Entries for Output Indicators, 
Columns 24-25. 27-28. and/or 30-31 



Enter in these columns: 

1. Resulting indicators (Columns 19-20 of 
the Input Specification sheet or 
columns 54-59 of the Calculation Speci- 
fication sheet) . 



Figure 57 shows six examples of output 
indicators used with the output file. The 
numbers to the right refer to the following 
discussion: 

1. The control carriage is skipped to 
channel 02 before printing, and the 
heading line is printed only when an 
overflow condition occurs or when the 
IP (first page) indicator is on. 

2. The detail line is printed only if 
indicator 14 is on, and indicators 26, 
28, and 30 are off. Indicators 26, 28, 
and 30 could be field indicators from 
the input specifications, or they could 
be resulting indicators from the calcu- 
lation specifications. 

3. The detail line is printed if indicator 
40 or 46 is on. 

4. The total line is printed and the con- 
trol carriage is skipped to channel 2 
before printing only if the level-2 
indicator is on, and the MR indicator 
is off, and H2 is off. The specifi- 
cation NH2 prevents the object program 
frcMB printing a line if an error condi- 
tion has occurred. The program does 
not stop until after all processing for 
the record has been ocxnpleted. This 
feature enables the programmer to pre- 
vent the printing of erroneous data. 

5. The summary record is printed at the 
level-2 control time, but the MR 
(matching records) indicator must also 
be on. 

6. A summary card punched at the level-2 
control time is selected into stacker 2 
of an IBM 1442 Card Read-Puixch. 
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Figure 57. Specifying Output Indicators 



This concludes the description of the 
file- identification specifications. The 
remaining descriptions of the output form 
are concerned with the field-description 
section. 



entries are permitted in columns 7-22 
of a field- description line. 



OUTPUT INDICATORS (COLUMNS 23-31) 



FIELD DESCRIPTION 



These entries include specifications about: 

1. The control of the individual fields of 
a record, and 

2. The output format of individual fields 
of a record. The fields of the record 
are written on the lines below their 
corresponding file entries. Each field 
is described on a separate line, and no 



The same types of indicators used for file 
identification can be used for field des- 
cription. The maximum number of indicators 
that can be considered in an AND relation- 
ship is three? all must be specified on one 
field-description line. 

Figure 58 shows four sets of indicators 
used as output indicators for field- 
description lines. The numbers to the 
right of the figure correspond to the 
following list. 
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Figure 58. Specifying Field Names 



1. Four fields are printed from a detail 2. 
record identified by indicator 
4U: invoice, amount, customer, and 
salesman. The entry Li causes the 
field, SALESM, to be printed only for 
the first detail record of each control 
group. (RCTiember that a control level 
indicator remains on during the follow- 
ing detail calculation and print 3. 
cycle . ) 

In this example, the salesman field 
is group indicated . 



The second example illustrates how to 
prevent the printing of just one field 
of a record. The field AMOUNT is 
printed only if indicator 16 is off. 
This indicator might be a resulting 
indicator used to determine if the 
calculated field AMOUNT is zero. 

This example selectively prints the 
field headings for an invoice form. 
This specification prints all the head- 
ing information on the first form, but 
if the information for one customer 
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order continues on two or more forms, 
only the cxistomer and invoice fields on 
succeeding forms are printed. 



Examples of field naunes are given in 
Figure 58. 



Printing of the entire line is con- 
trolled by indicators 04 or OF. In the 
field-description specifications, the 
OF indicator is also used to prevent 
printing of fields ORDER, DATE, and 
SALESM when an overflow condition 
occurs . 

In column 17 of line 130, the 2 
causes selective spacing of the OR'ed 
line. If 01 is on, a skip after to 
channel 3 will be made with no spaces 
before. If OF is on, 2 spaces before 
and no skip after will be made. If 
columns 17-22 of the line were blank, 
the space/skip specifications from line 
120 would apply. 

1. The last example illustrates how a 

field can be controlled for printing by 
an AND relationship and an OR relation- 
ship. 

The field DIVSON is controlled by 
three AND indicators: 16, NH2, and 
NL3. The field AMOUNT is controlled by 
two OR conditions. In the field des- 
cription line, the OR relationship is 
used by writing the field name twice 
and specifying each appropriate OR 
indicator. The letters OR cannot be 
specified in columns 14-15 of a field- 
description line. 



FIELD NAME (COLOMNS 32-37) 



This specification identifies each field of 
the record to be written. The fields may 
be listed on the form in any sequence. The 
order in which they appear in the output 
record is determined by the entry in 
columns 40-43. 

Enter in columns 32-37 the name of the 
field that is defined on the line. The 
field name must have been previously 
defined on either the input or calculation 
sheet. If a constant is to be written, it 
is specified in Constant or Edit Word 
(columns 45-70), and Field Name is left 
blank. 

If the value of the field is numeric, 
the sign of the field will appear in the 
units position unless the field is edited, 
zero suppressed, or the zone of the field 
has been blanked out on the Calculation 
Specification sheet by a numeric literal. 



ZERO SUPPRESS (COLUMN 38) 



An entry of Z in this column causes zero- 
suppression of the field in the output 
record. Zero- suppress! on means that the 
zeros to the left of the significant digits 
in the field are not written on the output 
file. Fields to be zero suppressed must be 
specified as numeric. 

An entry of Z in this column also 
provides another function. Zone bits in 
the units position of a field are removed 
in the output record before the field is 
written. 

If an edit-control word is specified for 
the field, this column must be blank. 



BLANK AFTER (COLUMN 39) 



If a B is entered in this column, the out- 
put field will be reset to blanks or zeros 
after the field is moved to the output 
area. Alphameric fields are set to blanks, 
and numeric fields are set to zeros. If 
the field name specified is a table name, 
only the table hold area is set to blanks. 



This specification hcis an additional 
feature. It allows the programmer to pro- 
vide for resetting field indicators or 
resulting indicators that test for blanks 
or zero. If the output field being reset 
by the blank-after specification, is also 
being tested for zero or blank on the input 
specifications, or for zero on the calcula- 
tion specifications, the corresponding 
indicator is turned on after the output 
field is reset. If multiple Zero or Blank 
indicators are specified for the same field 
name, only the last indicator specified 
will be turned on by the Blank After speci- 
fication. 



END POSITION IN OUTPUT RECORD (COLUMNS 
40-43) 



This specification indicates the exact 
location of the field in the output record. 
In columns 40-43, enter only the position 
in the output record where the rightmost 
(low-order) character of the field is to be 
located . 
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Figure 59. Positions in Output Record 



Assume that a ten-position amount field 
is to be printed in print positions 21 
through 30. The entry in columns »»2-«»3 
would be 30. Columns «»0-Ul are left blank, 
because the leading zeros may be omitted. 



to 100. The number is always four posi- 
tions long and must be specified as numer- 
ic. However, zero suppression can be per- 
formed. The page number is increased by 
one before it is printed. 



PACKED ouTPXJT <coLOMN ^^y 



Enter a P in this column if the output 
field is to appear in the packed decimal 
format. Otherwise, leave this column 
blank. If the output is to be printed, 
leave this column blank. 



Page Numbering 



Page numbering is another feature of RPG. 
By placing the %»ord PAGE in columns 32-37 
(Field Name) of the output specifications, 
automatic page numbering will be obtained. 
The page entry in Field Name of Figure 59 
causes each page of the output to be num- 
bered consecutively in print-positions 97 



Page numbering normally begins with the 
number 1, but page numbering can be started 
with any number by preparing a record-type 
that contains the starting page, less 1. 



In this case the record must be defined 
on the Input Specification sheet with a 
field labeled PAGE (n>. (The (n) following 
page is explained in the section Page Num- 
bering for Multiple Printers.) Figure 60 
shows an example of this specification. In 
this example the page is initialized from 
sequence AA of the input sheet. It must be 
numeric (entry in column 52 of the Input 
Specification sheet). On the output sheet 
it is defined as a separate field that will 
print in position 100. If the page number- 
ing were to begin with the ntmiber 500, 4 99 
would be punched in columns l-U of the 
input record that contains the character P 
in column 80. 
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Figure 60. Page Numbering 



A page number can be reset and a new 
series of page numbers may be started dur- 
ing the processing of the object program. 
When PAGE appears in the field name of the 
output-Format Specification sheets, the 
output indicators are used to reset the 
page to number 1. In this case, tlws indi- 
cator must be placed in Output Indicators 
on the same line as the field name specifi- 
cation PAGE (see the L3 indicator in Figure 
59). 



PAGE NUMBERING FOR MULTIPLE PRINTERS 



The individual printer files can initialize 
page numbering. Special Page entries 
(PAGE, PAGEl, and PAGE2) can be initialized 
to any count in the s^ame manner as des- 
cribed for PAGE. 



CONSTANT OR EDIT WORD (COLUMNS 45-70) 



Columns U5-70 provide the ability: 

1. TO include constants in output records, 
and 

2. To permit editing of numeric fields. 



Constants 



A literal of up to twenty-four alphameric 
characters may be placed in columns liS-TO. 
The literal must begin in column 45, and it 
must be enclosed by a set of single quota- 
tion signs even if it contains only numeric 
characters. The literal beginning in 
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colussn *»5 will be placed on the output 
record as defined in End Position in Output 
Record/ columns 10-43. 



|bbb,bb0.bb&C 

Body Status 



Rules for Forming AliAiameric Literals in 
an Output Record; 



Figure 62. Two Parts of an Edit 

Word; Body and Status 



1. Any character in the character set may 
be used in an alphameric literal. 
Blanks are treated as valid characters. 



2. Alphameric literals must be enclosed in 
a set of single-quote symbols. A sin- 
gle quote symbol may be contained with- 
in a literal by entering an additional 
single quote symbol within the literal. 
For example, the literal 5 o'clock 
would be entered as * 5 o* 'clock* in 
columns a5-56 of the Output-Format 
Specification sheet. 



blank when an alphameric literal is 
defined on the line. 



Edit Words 



An edit word provides for the punctuation 
of amount fields, including the printing of 
dollar signs, comnas, periods, and sign 
status. An edit operation is shown in 
Figure 61. 

IN STORAGE 
tb|b|b|,|b|b|0|.|b|b|&|C|R|* i "*— Edit Word 



,0,0,3.6.7.9.6.4, ^ 



•Unedited Data 



IN OUTPUT RECORD 
■567964 * r* Edited Data 

Figure 61. Edit Operation 



When an amount field is to be edited, 
its edit word is placed in columns 45-70 of 
the line which specifies the field. An 
edit word consists of two parts (the body 
and the status) as shown in Figure 62. 



The bocfy of the edit word is the portion 
beginning with the leftmost blank, zero, or 
asterisk, and continuing to the right to 
the character that governs the transfer of 
the units position of the data field. 

The status of the edit word is the por- 
tion continuing to the right from the body 
to the CR (credit) , or - (minus) if pre- 
sent. 



3. Field Name (Columns 32-37) must be left 1. 



2. 



3. 



5. 



6. 



Rules for Forming an Edit Word ; 

An edit word must be enclosed in a set 
of single-quote symbols. 

A blank in the edit word is replaced 
with the character from the correspond- 
ing position of the data field speci- 
fied in Field Name . 

An ampersand causes a space in the 
edited field. 

A zero is used for zero -suppress ion. 
It is put in the rightmost position 
where zero suppression is to stop. It 
is replaced with the character from the 
corresponding position of the data 
field, unless that character is a zero. 
Column 38 (zero- suppression) must be 
left blank. 

An asterisk in the body of the control 
word is used for asterisk protection 
and zero suppression. It is put in the 
rightmost position where zero suppres- 
sion is to stop. It is replaced with 
the character from the corresponding 
position of the data field unless that 
character is a zero. Each zero that is 
suppressed is replaced by an asterisk. 
When an asterisk is encountered in an 
editword before a CR symbol, a minus 
symbol, or a zero, the asterisk is 
interpreted as representing asterisk 
protection. 

A dollar sign in the body of the edit 
word written immediately to the left of 
the zero-suppression code (0) causes 
the insertion of a dollar sign in the 
position to the left of the first sig- 
nificant digit. This is called the 
floating dollar sign . A dollar sign 
that is entered immediately after the 
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initial single-quote mark will be 
fixed. That is, it will be printed in 
the same location each time. This is 
called the fixed dollar sign . 

Note : When using the floating dollar 
sign, the edit word must contain the 
same number of blanks and/or zeros as 
the field to be edited contains digit 
positions. 

7. The decimal and commas are printed in 
the edited output field in the same 
relative positions they were written in 
the edit word unless they are to the 
left of significant digits. In that 
case, they are blanked out or replaced 
by an asterisk. 

8. All other characters used in the body 
of the edit word are printed if they 
are to the right of significant digits 
in the data field. If they are to the 
left of high-order significant digits 
in the data word, they are blanked out, 
or if asterisk protection is used, they 
are replaced by an asterisk. 

9. The letters CR or the minus symbol in 
the status portion of the edit word are 
undisturbed if the sign in the data 
field is mdLnus. If the sign is plus, 
or if the value of the field is minus 
zero, they are blanked out. 



10. Asterisks to the right of the status 
portion of the edit word are undis- 
turbed. They are normally used to 
indicate a specific class of total. 



Figure 63 illustrates the use of con- 
stants and edit vpords. Ihe numbers to the 
left correspond to the following list: 

1. The constant 26.75 is in the output 
record ending in position 96. The 

fie Id- name specification must be blank. 

2. The constant DEPARTMENT TOTAL is con- 
tained in the output record ending in 
position 96. The field name must be 
blank. 

3. This example illustrates zero- 
suppression to the left of significant 
digits. The letters CR are written 
because the amount field might be 
minus. 

4. In this example, the floating dollar- 
sign protection enters the $ to the 
left of the first significant digit. 

5. Asterisk protection enters as many 
asterisks to the left of the first 
significant digit as required to fill 
out the number of positions specified 
in the edit word. 
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VALUE IN 
DATA FIELD 



000030 U6- 

00030 U6+ 

000030 U6- 

00123U 
00123U 
00123U 
00123U 



CONTAINED 
IN OUTPUT 
RECORD as: 



26.75 

DEPARTMENT TOTAL 

30. U6 CR» 

$30. U6 ♦ 

•*«*«30 .U6CR«« 

00123D 
123U 

001234 
123U 



Figure 63. Osing Constants, Edit Words, and Zero Suppression 



BOS/360 RPG (8K Disk) 



81 



6. DEPT is a nujperic field for which no 
editing or zero suppression is 
specified. The mitput; field will con- 
tain a zone in the units position. 

7. An edit word containing blanks only 
will suppress all high-order zeros in 
the output field. 

8. The edit word has been specified as one 
digit longer th£ui DEPT, with a zero in 
the high-order positicm. This allows 
all zeros in DEPT to print, but the 
zone of the units position has been 
stripped. 

9. This line notes the use of zero 
suppression. The output field will 



contain no high-order zeros as in line 
7. 



STERLING (COLUMNS 71-74). 



Enter in these columns the position in the 
record that will contain the sign of the 
sterling field. Leading zeros may be omit- 
ted. Enter an S in column 74 if the sign 
is in the normal position. If the Sterling 
specification is not required, leave this 
column blank. Additional information on 
Sterling is in A ppendix C; Sterling Rou- 
tines for the Report Program Generator . 
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FILE DESCRIPTION SPECIFICATION SHEET 



This sheet provides information to RPG 
about: 

1. The input files, defined on the Input 
Specification sheet, from which the 
object program will obtain data 
records. A maximum of three input 
files (including combined files) may be 
specified, (excluding RAP files, table 
files, and chaining files). 

2. The input files used by the object 
program, such as record address files, 
and table files. 

3. The output files are defined on the 
Output-Format Specification sheet on 
which the object program will write 
data records. Each file used by the 
object program will be defined. Each 
line of the File Description Specifi- 
cation sheet is used to define one 
file. 



MAXIMUM NUMBER OF FILES AVAIIABLE 



The maximum number of files that can be 
used in the program is 10. The following 
list defines the maximum number of files 
for the various types of files that can be 
used. Any combination of these, up to 10, 
is permitted. 



V- 



Type of File 






Primary 

Secondary 

RAF 

Chained 

Table 

Output 

Pr inter 

Other Output Units 



FILE NAME (COLUMNS 7-14) 



Maximum 
Number 

1 
2 

1 
3 
4 

3 
9 



Each file used in the program is identified 
by writing the name of the file in columns 
7-14. File names must be alphameric and 
left-justified (the file name must begin in 
column 7) . The file name entered in these 
columns must also be entered on the Input 



Specification sheet (for input data files), 
on the Output-Format Specification sheet 
(for output data files), or on the File 
Extension Specification sheet. 

Note ; The filename may be eight char- 
acters long but RPG will utilize only 
the first seven characters for all 
files except Indexed-Sequential files. 
For Indexed-Sequential files only the 
first five characters of the filename 
will be utilized in the RPG Program. 
Therefore, it is important that the 
first seven (or five) characters pro- 
vide a unique filename. 



FILE TYPE (COLUMN 15) 



An entry in this column specifies the type 
of file defined on the line of the sheet. 
The following entries are allowed in this 
column: 



Type of 
Entry File 

I Input 



Output 



U Update 



Explanat ion 

Identifies the file as an 
input file (it may be a 
record- address file, table 
file, or a file containing 
input data records ) . 

Identifies the file as an 
output file (it may be an 
updated table file to be 
written out). Column 39 
must be left blank. 

Identifies the file as an 
update file (DASD only) . 
An update file is both an 
input and an output file. 
The file is an update file 
if the object program 
alters the data in one or 
more fields of each record 
contained in the file with- 
out changing: 

1. The nature of the data, 

2. The length of the field 
in which the data is 
found, or 

3. ITie location of the 
field. 
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A chained file may be 
updated at detail tin^ or 
at total time. All other 
DASD files can only be 
updated at detail time. 



Ccxnbined Identifies the file as a 

combined file. A combined 
file is a card file con- 
taining cards read into the 
system cuid cards used for 
punching. It must reside 
on an IBM 1«*42 Card Read- 
Punch, or an IBM 2540 Card 
Read-Punch equipped with 
the Punch-Feed-Read Special 
Feature. Reading and then 
punching into the same file 
is accomplished in two 
different ways: 

1. Punching into the same 
card that is read. 

2. Punching into a blank 
trailer card in the 
same file. 
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Figure 64. Specifying File Name and File 
Type 



A combined file differs 
from an update file because 
in the update file the 
input fields are revised or 
updated. 



Note ; RPG does not support 
the use of the IBM 2520 
Card Read-Punch for 
combined files. 



Figure 64 illustrates two examples of 
File Name and File Type specifications. 



1. Detail cards are read into the system 
in one file, summary cards are punched 
into a separate file (which, in this 
example, might be the punch feed of an 
IBM 254 and might contain blank cards 
only) , and the printed report is in a 
third file. 



2. There are two input files in this exam- 
ple. The second file (INPOTSEC) also 
contains cards that will be used for 
punching output data; therefore it is 
specified with file-type c. 



FILE DESIGNATION (COLUMN 16) 



Column 16 designates the type of input file 
being defined on this line of the File 
Description Specification sheet. The five 
entries permitted in this column are listed 
here. Detailed explanations of chained 
files, table files, record address files, 
primary files, and secondary files may be 
found in the sections Using Tables and Exit 
Routines in the Object Program and Process- 
ing Multiple Input Files . 

If the file is an output file, leave 
this column blank. An entry must be made 
if the file is an input, update, or ccMti- 
bined file. Enter in column 16 the follow- 
ing codes: 

Entry Explanation 

P The file defined is a primary file. 
Only one primary file may be 
defined. 

S The file defined is a secondary 
file. 

R The file defined is a Record 

Address File which relates to a 
direct access storage file. 

C The file defined is a chained file 
(as defined under Chaining ) . 

T The file defined is a table file. 



84 



END OF FILE (COLUMN 17) 



BLOCK LENGTH (COLUMNS 20-23) 



Enter an E in cx>lunm 17 if the input file 
is a sequential file and it is to be 
checked for an end-of-file condition. For 
one input file, the E entry will cause the 
LR (last record) indicator to turn on when 
the last record of the file has been proc- 
essed. 

For multiple input files, the end-of- job 
condition (LR) will occur when all the 
input files (defined on this sheet with an 
E in column 17) have reached the end-of- 
file. 

If this column is left blank for all 
input files, the end-of -job condition 
occurs when all input files have been proc- 
essed. 



SEQUENCE (COLUMN 18) 



This entry is normally made if there is 
more than one input file, and the matching- 
fields specification (columns 61-62 of the 
Input Specification sheet) is used. An 
entry in this column indicates whether the 
matching fields are in ascending or 
descending sequence. 

Enter an A in column 18 if the matching 
fields are in ascending order, or a D if 
the matching fields are in descending 
order. 



This specification is used to indicate the 
block length of the input -or output 
records. If the input records are 
unblocked, enter the length of the largest 
record in columns 20-23. If the input 
record is blocked, enter the size of the 
largest block. The block length may be 
from 18 to U096. Leading zeros may be 
omitted . 



RECORD LENGTH (COUaMNS 2U-27) 



This specification is used to enter the 
length of the logical records contained in 
the file. If the file contains records 
that are variable in length, enter the 
length of the largest record. (The entry 
must be right- justified, ) 

Note 1 : If the block length equals the 
record length, RPG will consider the 
file to have unblocked records for both 
fixed-length and variable- length 
records. 

Note 2 ; If the block length is greater 
than the record length, RPG will con- 
sider the file to have blocked records 
for both fixed- length and variable- 
length records. 



Sequence-Checking of Input Files 



If there is only one input file or a chain- 
ing file in the program, this specification 
may be used to sequence-check fields of the 
file to ensure that the file is in 
sequence. By entering the codes (Ml, M2, 
and M3) in columns 61-62 of the Input 
Specification sheet, sequence-checking with 
respect to these fields occurs. In column 
18 either A or D must be entered to specify 
whether the file is ascending or descend- 
ing. 



MODE OF FILE PROCESSING (COLUMN 

28): DIRECT ACCESS STORAGE DEVICE (DASD) 



This column is used to indicate the method 
or mode by which the file is processed. 
Acceptable entries are listed here. 

Entry Explanation 

L Enter an L in this column, if a 
segment of the file is to be 
processed. The upper and lower 
limits of the file (to be 
processed) will be supplied, in 
this case, by a Record Address File 
(RAF). The RAF will be supplied by 
the user. 



FILE FORMAT (COLUMN 19) 



This column is used to indicate the format 
of the input or the output records. Enter 
an F in this column if the records are 
fixed-length. Enter a V in this column if 
the records are variable in length. For 
more informaticm, see the Variable- Length 
Records section. 



Blank 



Enter an R in this column, if the 
user's records are to be processed 
randomly. In this case, the 
records to be processed will be 
obtained by a record-address file 
or a chaining file. 

If no entry is made in this column 
for the file, the entire file will 
be processed sequentially. 
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LENGTH OF RECX)RD ADDRESS FIELD (COLUMNS 
29-30) : RECX)RD ADDRESS FILE (RAF) ONLY 



If the file defined on this line is a 
record- address file, enter the number of 
positions that each entry in the RAF occu- 
pies. 



Sort/Merge Procrram (8K Disk) , Form 
C24-3321, for an explanation of the ADDROUT 
option. ) An example of using this option 
is contained in the section of this manual 
entitled Osing the ADDROUT Option . 



TYPE OF RECORD ADDRESS (COLUMN 31) 
OR RAF FILE ONLY) 



(DASD ROLES FOR SPECIFYING MODE OF FILE 

PROCESSING, TYPE OF RECORD ADDRESS, AND 
TYPE OF FILE ORGANIZATION 



If the records from a DASD file are to be 
retrieved by using record keys, enter a K 
in this column. The K indicates that the 
file defined on this line will be processed 
by use of the record key. If the records 
are to be retrieved by the record identifi- 
cation, enter an I in this column. If the 
file specified on this line is a RAF file, 
a K or an I must be entered in column 31. 
Otherwise, leave the column blank. 



TYPE OF FILE ORGANIZATION (COLUMN 
32): (DASD ONLY) 



Leave this column blank if the file is 
organized sequentially, or if it is an 
output file. Enter an I if the file has an 
indexed-sequential organization. Enter a D 
in this column if the file has direct 
organization. 

Enter a T in this column, if the file is 
the output from the ADDROUT (Address 
Output) option of the disk sort program. 
(See IBM Basic Operating Svstem/360. 



1. If a direct access storage device is 
not used in the system, columns 28, 31, 
and 32 are left blank. 

2. If the type of file organization is 
Sequential, then columns 28, 31, and 32 
are again left blank. 

3. If the type of file organization is 
Indexed-Sequential (I in column 32), 
column 31 must contain a K and column 
28 can be either L, R, or blank. 

t*. If the type of file organization is 

Direct (D in column 32), then column 31 
can contain either a K or I, and column 
28 can only contain an R. 

Note: If column 32 contains D and 
column 31 contains K, multiple tracks 
will be searched by the RPG object 
program. 

Figure 65 illustrates the code combina- 
tions possible for these three specifi- 
cations . 



Type of File Organization 
(Col . 32) 


Type of Record Addresses 
(Col. 31) 


Mode of Processing 
(Col . 28) 


Sequential * (blank) 


Not applicable 


(blank) 


The entire file between limits will be processed. (blank) 


Indexed - Sequential (1 ) 


Record Key 


(K) 


(The entire file will be processed). (blank) 


A segment of the file will be processed. (L) 
The limits to be processed are supplied by a 
Record Address File (RAF). 


The records will be processed randomly. (R) 
The addresses are supplied: (a) by a RAF file, or 
(b) by the data contained in the chaining field of an 
input record. 


Direct (D) 
(Random) 


Track Address with Record Key, 
Track Address with Record 
Identification 


or (K) 
(1) 


The records will be processed randomly. (R) 
Conversion is required. The addresses to be converted 
are supplied by a RAF file or by a chaining field. 



*Entries in parenthesis indicate actual specifications to be used. 

Figure 65. Processing Direct Access Storage Files 
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OVERFLOW INDICATOR (COLUMNS 33-34) 



If the file defined on the line is a prin- 
ter file and overflow indicators are used, 
enter the overflow indicator associated 
with the file. A mcucimum of three x>verf low 
indicators is allowed. The following are 
permissible overflow indicators: 

1. OA 

2. OP 

3. OV 



Device (DASD) , enter DISKll in columns 
'♦0-46. The entry must be left- justified. 



SYMBOLIC DEVICE (COLUMNS 47-52) 



If the file defined on this line is an 
input or an output file, enter the symbolic 
name of the unit. (For example: SYSIPT in 
47-52). 

Valid entries in these columns are the 
following : 



KEY FIELD STARTING LOCATION (COLUMNS 35-38) 



Enter in these columns the starting loca- 
tion within the record of the field speci- 
fied as the Key Field. (Leading zeros may 
be omitted.) This entry is used only if 
the records are blocked records for an 
Indexed-Sequential file. 



E (COLUMN 39) 



If the file defined on the line is a chain- 
ing file, a table file, or a record- address 
file, enter E in column 39. The E indi- 
cates that additional information about the 
file will be coded on the File Extension 
Specification sheet. If the file is 
defined as an output file (O in column 15), 
this column is left blank. 



DEVICE (COLUMNS 40-46) 



I Entry | Examples | 



SYSRDR 
SYSLST 
SYSIPT 
SYSOPT 



SYSOOl 
SYS254 



Card input. 

Printer. 

Card or tape input. 

Card, disk, tape, or prin- 
ter output. 

Any input or output unit. 



J 



Note 1 ; Input units containing files 
organized in indexed-sequential or 
rand<»n organization must be assigned 
Symbolic Device codes of SYS001-SYS254. 

Note 2 ; If the logical file extends 
over more than one physical unit, the 
device codes must be adjoining. For 
example, if a logical file is contained 
in three IBM 2311* s the device codes 
could be SYS019, SYS020, SYS021. 



Enter in these columns the input or output \ 

unit associated with the file. If the I 

output file is a printer, enter PRINTER in j 

columns 40-46. If the file is an input or | 

output file and it is associated with a I 
Card Reader or Card Punch unit, enter one 
of the following: 



READ4 2 for the IBM 1442 

READOl for the IBM 2501 

READ20 for the IBM 2520 

READ40 for the IBM 254^0 

If the file is an input or output file 
and it is associated with a tape unit, 
enter TAPE in these columns. If the file 
is associated with a Direct Access Storage 



LABEL (COLUMN 53) 

The entries for this specification are: 
Blank = No labels exist for the file. 

1. The RPG processor processes no 
labels and makes the first 
data record available. 

2. RPG writes the first record. 

N = The file has nonstandard labels. 

1. For both input and output 

files, RPG always provides for 
an exit to a user's subrou- 
tine. 
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2. The user must provide for the 
checking of header and trailer 
labels. 



S = The file has standard labels only. 

1. An exit is not given for eith- 
er an input or output file. 

2. User standard labels will be 
bypassed. 



ing are the same as those specified in 
the section Use of Registers with one 
exception. Register 9 is used as the 
base register, and not register 15. 



EXTENT EXIT FOR DAM (COLUMNS 60-65) 



In IBM Basic Operating System RPG (8K), 
these columns are not used. 



E = The file has standard labels and 
user standard labels. 

1. For both input and output 

files RPG provides for an exit 
to a user subroutine in which 
user standard labels are proc- 
essed. 



NAME OF LABEL EXIT (COLUMNS 54-59) 



Enter in these columns the name of the 
external routine which will process non- 
standard or user-standard labels. The name 
must consist of alphameric characters and 
cannot exceed six characters in length. 
(This entry is required only if column 53 
contains N or E. ) 

Note ; The register conventions for 
exit to a user routine for label check- 



COLUMNS 66-74 



Leave columns 66-74 blank, unless comments 
are entered in these columns. 



ENTRIES ON THE FILE DESCRIPTION 
SPECIFICATION SHEET 



Figure 66 shows several examples of entries 
on the File Description Specification 
sheet. The numbers to the right correspond 
to the explanation that follows. 

1. The P in column 16 indicates the input 
file INPUT is the primary file. The E 
in column 17 indicates that the end-of- 
job condition will occur when this file 
is depleted. The file is ascending (A 
in column 18). The block length is 80, 
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and each record is 80 characters long. 
The E in column 39 indicates that the 
file will be referenced on the File 
Extension Specification sheet. This 
file is read in on an IBM 1442 Card 
Read- Punch. The Device code is READ42, 
and the Symbolic Device code is SYSRDR. 

2. The record-address file defined on this 
line has a fixed format (column 19). 

It has a block length of 80. Each 
record is 80 characters long and the 
length of each record-address field is 
8. The E in column 39 indicates that 
the File Extension Specification sheet 
will be used. The record address file 
is read into the program by an IBM 254 
Card Read-Punch. The Device code is 
READ40 and the Symbolic Device code is 
SYSOOl. 

3. The third file defined on this sheet is 
a table file. The T in column 16 
indicates that it is a table file. It 
has a fixed format, a block length of 
200, and a record length of 100. 
Column 39 (E) indicates that it will be 
used on the File Extension Specifi- 
cation sheet. The file is read in on 
magnetic tape, therefore the Device 
code is TAPE, and the Symbolic Device 
code is SYS006. The N in column 53 
indicates that there are nonstandard 
labels on the tape. Tliis means that 
the nonstandard labels will be proc- 
essed by the user's subroutine LABEXT 
(as specified in columns 54-59). 

4. MASTCOST is an input file that will be 
processed under the control of another 
file. It is a chained file (C in 
column 16). It will be processed ran- 
domly (R in column 28). The record 
addresses that will be referenced by 
the chaining file are record keys (K in 



column 31), and the file is organized 
indexed-sequentially (I in column 32). 
This file is located on a direct access 
storage device and isr given the Device 
code of DISKll and the Symbolic Device 
code of SYS 008. The S in column 53 
indicates that there are standard 
labels on the disk. 

5. The update file DISKUPDT (U in column 
15) will be used for input, and it will 
be updated after processing of each 
record has been completed. It is an 
indexed- sequential file, and it will be 
processed randomly. The C in column 16 
indicates that the file is a chained 
file. In this example, the maximum 
record length is 200 with a maximum 
block length of 400. This file is 
located on a direct access storage 
device and is given the Device code of 
DISKll and the Symbolic Device Code of 
SYS012. The key field starting loca- 
tion (columns 37-38) is position 15 
within the data record. 

6. The file CARDREC is a combined file 
(column 15). Assume that the file will 
be used as input, and additional infor- 
mation will be punched in the input 
cards during processing. Therefore, it 
is a Secondary file (Column 16) . This 
combined file is read in and punched 
out on an IBM 1442 Card Read- Punch. 
The Device code is specified as READ42 
and the Symbolic Device code as SYS 002. 

7. The file OUTPUT is a printed report in 
this example. It is variable in 
length, and the longest record is 132 
characters. The overflow indicator for 
this file is OF (colximns 33-34). The 
printed report in this case has a 
Device code of PRINTER and a Symbolic 
Device code of SYSLST. 
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FILE EXTENSION SPECIFICATION SHEET 



Entries made on the File Extension Specifi- 
cation sheet provide information to the RPG 
about such functions as chaining files, 
tables used in the object program, and 
information about record- address files. In 
the sections Using Tables in the Object 
Program and Processing Multiple Input 
Files , detailed information and examples 
show how to use these functions. A maximum 
of 25 line entries may be made on the File 
Extension Specification sheet. 

The entries allowed on the File Exten- 
sion Specification sheet are discussed in 
the following sections. 



RECORD SEQUENCE (COLUMNS 7-8) 



Chaining File 



If the file defined on the line is a chain- 
ing file, enter the sequence of the file in 
columns 15-16 of the Input Specification 
sheet. The file name of the chaining file 
has been entered in columns 7-14 of the 
Input Specification sheet. 



Record-Address File or Table File 



FROM FILENAME (COLUMNS 11-18) 



Enter in these columns: 

1. The name of the chaining file, 

2. The name of the RAF, or 

3. The name of the table file as defined 
on the File Description Specification 
sheet. 

Chaining File . This is the file that 
has the data record containing the chaining 
field. The name of the file is taken from 
columns 7-1*4 of the File Description Speci- 
fication sheet. The entry must be left- 
justified. 

Record Address File . If the file 
defined on the line is a re cord- address 
file, enter the name of the RAF file in 
these columns. The entry must be left- 
justified. 

Table File . Enter the name of the file 
that contains the table if the file defined 
on the line is a table file. This file has 
been defined on the File Description 
Specification sheet. The entry must be 
left- justified. Table files are processed 
in the same order in which they appear on 
the File Extension Specification sheet. 



Leave columns 7-8 blank if a record- address 
file or a table file is defined on this 
line. 



NUMBER (COLUMNS 9-10) 



Chaining Field 



Enter the number of the chaining field in 
columns 9-10. The number of the chaining 
field is taken from columns 61-62 of the 
Input Specification sheet. 



Record- Address File (RAF) or Table File 



Leave columns 9-10 blank if the file 
defined on the line is a record-address 
file or a table file. 



TO FILENAME (COLUMNS 19-26) 



Chained File Name . If the file is a 
chained file, enter its name. The data 
record is obtained frcxn this file. The 
entry must be left- justified. 

RAF File Name . If the From Filename 
entry (columns 11-18) is an RAF file, enter 
the name of the file that contains the data 
record to be processed. The entry must be 
left- justified. 

Table File Name . If the From Filename 
entry (columns 11-18) is a table file, 
enter the name of the file to be used as an 
output file after the table has been updat- 
ed during program execution. Leave this 
column blank if the table file is not to be 
written out. A table can be put out on 
only one device. For additional informa- 
tion on tables, see Using Tables in the 
Object Program . The entry must be left- 
justified. 
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TABLE NAME (COLUMNS 27-32) 



PACKED (COLUMN 43) 



Columns 27-32 contain the name of either 
the table that contains arguments or 
functions. If only one table name 
(argument or function) is read in on one 
device, then it is entered in this column, 
and columns U6-57 are left blank. The name 
must be of the form TABnnn. The entries 
nnn may be any alphameric characters. (The 
entry must be left- justified. ) 



Direct Organization 



When a file that has direct organization is 
processed under control of a record- address 
file or a chaining file, the entry for 
these columns is the RPG internal label of 
the conversion routine. The concepts of 
chaining and record address files have not 
been discussed at this point in the publi- 
cation. For a complete discussion of 
chaining, conversion, and record-address 
files, see Processing Multiple Input Files . 



NUMBER OF TABLE ENTRIES PER RECORD (COLUMNS 
33-35) 



If the data in the table is in the packed- 
decimal format, enter P in this column. 
Otherwise, leave this column blank. 



DECIMAL POSITIONS (COLUMN 44) 



If the data contained in the table is 
numeric, enter a zero if there are no deci- 
mal positions. Enter the number of decimal 
positions (1-9) in this column if the data 
contains decimal positions. If the field 
is alphameric, leave this column blank. 



SEQUENCE (COLUMN 45) 



If the data contained in the table is in 
ascending sequence, enter an A in this 
column. If the data contained in the table 
is in descending sequence, enter a D in 
this column. Leave this column blank if 
the data contained in the table is not in 
ascending or descending sequence or if this 
specification is not required. 

Note ; The next five specifications 
(columns 46-57) are used only if alter- 
nating functions and arguments are read 
in on one device. 



Enter in columns 33-35 the exact number of 
table entries (that is, the number of argu- 
ments or functions) that are contained in 
each input record. The entry must be 
right- justified. 



NUMBER OF TABLE ENTRIES PER TABLE (COLUMNS 
36-39) 



TABLE NAME (COLUMNS 46-51) 



If two table names are used, enter the 
second table name in these columns. It 
must be of the form TABnnn. This specifi- 
cation is used only if alternating argu- 
ments and functions are used. The entry 
must be left- justified. 



In these columns, enter the exact number of 
table entries (the number of arguments or 
functions in the table) contained in the 
table. The entry must be right- justified. 



LENGTH OF TABLE ENTRY (COLUMNS 52-54) 



Enter in these columns the length of each 
table entry. The maximum size of a table 
entry is 248 bytes. The entry must be 
right- justified. 



LENGTH OF TABLE ENTRY (COLUMNS 40-42) 



PACKED (COLUMN 55) 



Enter in columns 40-42 the length of each 
table entry. The maximum size of an entry 
is 248 bytes. The entry must be right- 
justified. 



Enter a P if the data in the table is in 
the packed-decimal format. Otherwise, 
leave this column blank. 
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♦Figure 67. Entries for the File Extension Sheet 



DECIMAL POSITIONS (COLUMN 56) 



If the data contained in the table is 
numeric, enter a zero if there are no deci- 
mal positions. Enter the number of decimal 
positions (1-9) in this column if the data 
contains decimal positions. If the field 
is alphameric, leave this column blank. 



SEQUENCE (COLUMN 57) 



If the data contained in the table is in 
ascending sequence, enter an A in this 
column. If the data contained in the table 
is in descending sequence, enter a D in 
this column. Leave this column blank if 
the data contained in the table is not in 
ascending or descending sequence or if this 
specification is not required. 



1. In this example, INPUT is a card file 
containing the record key that will be 
used to process records in the DASD 
file MASTCUST. The file INPUT is the 
chaining file. That is, it is the file 
that links or chains to another file 
(in this case MASTCUST). The field 
contained in INPUT, which is used to 
link the two files, is the chaining 
field . The record sequence of the 
input file is taken from the Input 
Specification sheet. CI is the number 
of the chaining field. Thus, INPUT is 
chained to MASTCUST by using a field 
defined on the input specifications 
that contains CI in columns 61-62. A 
complete discussion of chaining may be 
found in the Chaining section. 



In this example, RAFFILE is a record- 
address file that supplies the 
addresses of the records to be proc- 
essed in the file DISKUPDT. 



COLUMNS 58-74 



Leave columns 58-74 blank, unless comments 
are entered in these columns. 



ENTRIES ON THE FILE EXTENSION SPECIFICATION 
SHEET 



Figure 67 shows several examples of entries 
that can be made on the File Extension 
Specification sheet. The nimbers to the 
right of the entries correspond to these 
explanations : 



TABFIL is the name of a table file that 
contains both a table of arguments and 
a table of functions. 

The arguments in the file are iden- 
tified by the table name of TABARG. 
The argument table is described in 
columns 33-45. There are 10 arguments 
in each record. The number of argu- 
ments in the table is 150, and each 
argument is 10 characters long. The 
arguments are numeric (column 44). 

The functions in the file are iden- 
tified by the table name TAB FUN. The 
function table is described in columns 
52-57. Each function is 10 characters 
long, and each function is organized in 
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the form: argument-function. There- 
fore, TABARG was specified first. 

4. This example shows the specification 
for a table file that contains only 
arguments. After the table of argu- 
ments is updated the table is to be 
written on an output unit (card or 
printer.) 

TABFIL is the name of the table 
file. 

NEWTAB is the name given to the 



table file when it is being written on 
the output unit (output operations). 

The arguments in the file are iden- 
tified by the table name of TABREC. 
The argument table is described in 
columns 33-4 5. Ten table entries are 
in each record. The number of table 
entries in the table is 150, and each 
table entry is 10 characters long. The 
data is numeric. TABREC is the name 
used during updating or during a lookup 
operation on the Calculation Specifi- 
cation sheet. 
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USING TABLES AND EXIT ROUTINES IN THE OBJECT PROGRAM 



This section of the publication contains 
information on: 

1. How to create and use tables, and 

2. How to transfer control from the RPG 
program to a subroutine coded by the 
user, and how to return to the RPG 
program. 



USING TABLES IN THE OBJECT PROGRAM 



The part number is selected from the card 
by the RPG program, the table is searched, 
and the price is retrieved and made availa- 
ble for additional processing- 

All entries in a table will be: 

1. Arguments, 

2. Functions, 

3. Alternating arguments and functions, or 

4. Alternating functions and arguments. 

Figure 69 shows these four possibilities. 



RPG enables the programmer to use tables in 
the object program. A table is nothing 
more than an arrangen«nt of data that is 
searched and used by the object program. 
Tables are loaded into storage by the RPG 
object program before any files are proc- 
essed. Tables can be loaded from card, 
tape, or disk (consecutive). 

A table may consist of two parts: cin 
argument and a function . In Figure 68 the 
table consists of part numbers (arguments) 



Argumenl-s 



Argument 1 
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Functions 



Function 1 
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Alternating Arguments and Functions 



Argument 1 



Function 1 




Alternating Functions and Arguments 



Fun. N 



Function 1 



Argument 1 




Argument N 



Figure 69. Four Types of Tables 



Search Argument is 10 

Figure 68. Using a Table 

and prices (functions) . If the price of 
part number 10 is wanted, the table is 
searched until part-number 10 is found. 
The corresponding function of 10 in the 
table is 155. The 155 represents $1.55, in 
this example. The number used to search 
the table is called the search argument . 
The card file in Figure 6 8 contains part 
numbers that have been ordered. The cards 
do not contain the prices of the parts. 



RULES FOR FORMING TABLES 

1. Each unit of table data is called a 
table entry. That is, each argument is 
a table entry, and each function is a 
table entry. 

2. The collection of all arguments is 
assigned a name. The collection of all 
function entries is assigned a name. 
The names must be unique, and the names 
of the tables must contain the letters 
TABnnn (nnn may be any alphameric 
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entry). In Figure 73 the alternating 
table file called RATETABL is split 
into the collection of arguments 
(TABNUM) and functions (TABRAT) . RATE- 
TABL is the name of the file containing 
the tables, 

3. Although all the tables may be loaded 
from the same device, a unique file 
name must be assigned in columns 11-18 
for each line entry on the File Exten- 
sion Specification sheet. The tables 
will be loaded into storage before the 
object program is processed, and each 
line entry on the File Extension Speci- 
fication sheet must have: 

a. A unique file name (columns 11-18). 

b. Entries in columns 27-45 if the 
table is only arguments or func- 
tions. 

c. Entries in columns 27-45 and columns 
46-57 if the table consists of 
alternating arguments and functions. 

Note: If the program is to be compiled 
and executed at a later time using 
Operating System RPG, all tables read 
or written using the same I/O device 
must have the same file name. 



Rules for Creating Records Containing Table 
Data 



1. Each record must begin with the first 
table entry of that record in position 
1. 

2. All records must have the same number 
of table entries, except the last. In 
Figure 70, the first card in the table 
file has ten table entries. All subse- 
quent card records must have ten table 
entries. The second card could not 
contain six; the third could not con- 
tain seven, for example. 

3. All entries must be continuous in every 
record. In Figure 70, the first entry 
begins in position 1 and the second 
entry begins in position 4. No blanks 
can be contained between the table 
entries. 

4. All entries belonging to a table must 
have the same length. In Figure 70, 
each argument is three positions long 
and each function is six positions 
long. 

5. When alternating tables are used, each 
record must begin with an entry of the 
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Figure 70. Table File Containing Arguments and Functions 
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Figure 71. Table File Containing All Arguments 



same type. Each record must always 
begin with an argument, or each record 
must always begin with a function as 
shown in Figure 70. 

6. When alternating tables are used, the 
table entries in each record must not 
be split. Function 3, for example, 
must be in the same record as argument 
3. It is not permissible for a func- 
tion to appear in a different record 
other than its corresponding argument. 

7. If a table consists of all arguments or 
all functions, an argument or a func- 
tion must not be split. Assume that 
argument one, argument two, argument 
three, cmd argument four are contained 
in the first record. No part of argu- 
ment four could overflow into the sec- 
ond record. Figure 71 illustrates the 
correct way to specify records contain- 
ing arguments or functions. 

8. The table may be ascending, descending, 
or in no sequence. 

9. The records of a table must be on a 
sequentially organized file. 

10. The table file to be loaded must con- 
tain the exact number of table entries 



as specified on the File Extension 
Specification sheet. 



METHODS OF PROCESSING TABLES 



The operation code LOKUP entered on the 
Calculation Specification sheet causes a 
table lookup operation to be performed. 

Factor 1 contains the search argument . 
The search argument may be a literal or a 
field name. 

Note ; The length of the data in the 
argument table (table argument) must be 
equal to the length of the search argu- 
ment. The length includes the decimal 
positions. 

Factor 2 contains the name of the table 
which contains the argumaits. 

The result field contains the name of 
the table from which an associated function 
is to be located, if arguments and func- 
tions are used. The result field may be 
left blank if the user wants to determine 
if an argument is present in the table, but 
does not require the corresponding func- 
tion. 
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Resulting indicators (columns 54-59) 
must always have an entry when the table 
lookup operation is performed. The indica- 
tors indicate the type of lookup to be 
performed, and the indicators are turned on 
whenever the condition is satisfied. The 
program may search for the table argument 
next-higher than the search argument, or it 
may search for the table argument next- 
lower than the search argument, or it may 
search for the table argument equal to the 
search argument. An entry must be made in 
columns 54-59. Combinations of high-equal 
or low-equal searches may be specified by 
placing indicators in the appropriate two 
of the three fields (columns 54-59). 



The lookup operation is performed in 
this way: 

1. The object program takes the field name 
or literal in Factor 1 and searches the 
table indicated by Factor 2. The kind 
of lookup is determined by the entries 
in the resulting indicators. 

2. After the proper entry from the 
argument table has been found, the 
corresponding function from the func- 
tion table (indicated by the entry in 
the result field) is located, and 
placed in the special holding area of 
the function table. If the proper 
table argument is not found, the indi- 



cators in columns 54-59 are not turned 
on. 

Other operations may be performed using 
the data just found by the table lookup 
operation. This data is stored in the 
special holding area within the function 
table, and can be retrieved by merely using 
the name of the function table in either 
Factor 1 or Factor 2 of an operation. 

Figure 72 illustrates several ways the 
data found by the operation may be used. 
The numbers on the figure correspond to 
this discussion. 

1. Factor 1 contains the name of a field. 
The field PERCNT contains the search 
argument. The name of the table that 
contains the arguments is TABCST. The 
name of the table that contains the 
corresponding function is TABAMT. The 
program will search for the value in 
the argument table that is equal to the 
search argument (columns 58-59). 

2. The data found in TABAMT from the pre- 
vious operation is used as the search 
argument in this example. (TABAMT is 
the name of the table; however. Factor 
1 is the function located in the spe- 
cial holding area of the table TABAMT) . 
The program searches for the value in 
the table TABARG that is equal to the 
search argument (colijmns 58-59). 
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3. In this example, the data obtained from 
the function table TABFUN from the 
previous lookup operation is moved to a 
field called WITHTX. It will be used 
for additional calculations. 

U. In this example, the data found in the 
function and argument tables is updat- 
ed. The literal ■♦•25 is the search 
argument. The table TABFIL is searched 
for +25 (indicated by the entry in 
columns 58-59) . A new entry for the 
corresponding function of +25 is 
entered in TABLIT. The new function is 
+500; the new araument is +30. 



reached the end-of-job condition (LR 
condition) . 

The name of the file need not be entered 
on the Output- Format Specification sheet. 
If the updated table is to be put out on a 
printer, no automatic skip to a new page 
will be initiated by the RPG program. 

The output table must have the same 
format as the input table. When using tape 
units as output devices for tables in 
blocked format, each output table file 
requires a separate tape unit. 



In example 5, a lookup with only one 
argioment table turns on indicator 30 if 
SEARCH is equal to an argument in TAB- 
NUM. If 30 is not on (N30) , HI is 
turned on by the SETON instruction. 

This example illustrates the facility 
for adding to the table. In this exam- 
ple, the LOKUP operation is conditioned 
on indicator 01. (Indicator 01 is 
turned on when the input file contains 
records with additional table informa- 
tion. Each record contains the two 
fields, NEWARG and NEWFUN.) To deter- 
mine the first vacant argument, a field 
of zeros is used as the search argu- 
ment. (Zeros are used because the 
argument field is numeric. Blanks 
would be used if the argument field had 
been alphabetic.) 

If there is an equal compare, indi- 
cator 35 is turned on. Since the argu- 
ment field of the table is vacant, the 
corresponding function field is also 
vacant. (It is the user's 
responsibility to make certain that the 
vacant table entries contain all zeros 
or blanks, depending on whether the 
fields are numeric or alphameric.) The 
new argument (NEWARG) is inserted in 
the TABARG field, and the corresponding 
new function (NEWFUN) is inserted in 
the TABFUN field. 



RETRIEVING UPDATED TABLES 



After a table has been updated, the table 
may be written out for later use. On the 
File Description Specification sheet, the 
programmer enters the name of the file that 
will contain the updated table. The file 
must be defined as an output file. On the 
File Extension Specification sheet, the 
programmer enters the name of the file on 
which the updated table will be written. 
He enters the name of the file in To Filen- 
ame . The updated table file will be put 
onto the output file after the program has 



EXAMPLE OF USING TABLES 



Figures 73 and 74 illustrate an input data 
file, the way a table might appear, and the 
entries necessary on the RPG specification 
sheets in a program that uses tables. In 
this example, a card-input file contains 
the number of hours worked by each employee 
(columns 42-44) and the employee's number 
(columns 1-5). The RPG program takes the 
employee number and uses it as the search 
argument to find the salary rate for the 
employee. After the employee's rate has 
been determined, the rate is multiplied by 
the number of hours worked by the employee. 
The result of this operation is the amount 
earned for each employee. 

TABRAT TABRAT TABRAT 

TABNUM \ TABNUM \ TABNUM J 



RATETABL 
(File Name) 



12345 



1436 



12347 



1390 



12861 



1492 



Table 
Argument 



Table 
Argument 



Table 
Argument 



Table 
Function 



Table 
Function 



Table 
Function 



/ 

EMPNO 
1-5 




HRS 

WKD 

42-44 


. ' 



(Input 
Data) 

Figure 73. 



Using Alternating Arguments and 
Functions 



In this example, the table consists of 
alternating arguments and functions. The 
way the table data might appear is shown in 
Figure 73) The name of the file that con- 
tains the arguments and functions is RATE- 
TABL. The collection of arguments is 
called TABNUM (the table number) , and the 
collection of functions is called TABRAT 
(table rate). 
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Entries on the specification sheets 
follow. 



FILE DESCRIPTION SPECIFICATION SHEET 



The two files are defined on the File Des- 
cription Specification sheet. The file 
containing the input card records is called 
TIMECARD. It is an input file (.1 in column 
15) ; it is the primary file (P in column 
16); and when the file is depleted, proc- 
essing is terminated (E in column 17) . The 
records in the file are in ascending order 
(A in column 18); they are fixed- in-format 
(F in column 19). Each record has a block 
length of 80 (80 in columns 22-23), and 
each record is 80 characters long (80^ in 
columns 26-27). 



aroe (columns 11-18). The collection of 
arguments (TABNUM) is entered in the first 
Table Name (columns 27-32). There are 
eight arguments per record (columns 34-35), 
and there are 1500 entries in the table 
(columns 36-39). Each table entry is five 
positions long (.5 in column 42) , and there 
are no decimal positions (£ in column 44). 
The table is ascending (A in column 45). 



The collection of functions is described 
in columns 46-57. The name of the func- 
tions (TABRAT) is entered in columns 46-51. 
Each entry in the table is four positions 
long (4 in column 54), and there are three 
decimal positions specified (3 in column 
56) * The functions are in ascending order. 



This file is read in on the IBM 2540 
Card Read- Punch, so the Device code is 
READ40, and the Symbolic Device code is 
given as SYSRDR. 

The table file is defined on the line 
below the card-input file. The name of the 
file (RATETABL) is entered in Filename 
(columns 7-14). It is an input file (I in 
column 15), and the records in the file are 
fixed in format (F in column 19). The file 
has a block length of 80, and each record 
is 80 characters long. The E in column 39 
indicates that additional information about 
the file is coded on the File Extension 
Specification sheet. 

This file is read in on the IBM 1442 
Card Read-punch, and therefore it is 
assigned the Device code of READ42. This 
is the second card reading device on the 
system so it is assigned a Symbolic Device 
code of SYS 001. 



FILE EXTENSION SPECIFICATION SHEET 



On the File Extension Specification sheet, 
the table file is further defined. The 
name of the file is entered in From Filen- 



INPUT SPECIFICATION SHEET 



The input file (TIMECARD) is described on 
the Input Specification sheet. The name of 
the file is entered in columns 7-14. The 
file is assigned a sequence of AA (columns 
15-16), and resulting indicator 01 is 
turned on whenever an input record is pre- 
sent for processing. No record identifi- 
cation codes are specified because every 
record will be processed in the same way. 



Lines 020 and 030 are used to describe 
the locations of the two input fields used 
by the program. The employee number is 
located in columns 1-5 of the input record, 
as specified by the entries in Field Loca- 
tion (columns 47 and 51), and the employee 
number is given the field name EMPNUM. The 
number of hours worked by the employee is 
found in columns 42-44 of the input record, 
as specified by the entries in field loca- 
tion. The name HRSWKD is assigned to the 
number of hours worked by each employee. 
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CAUCDLATION SPECIFICATION SHEET 



Execute the subroutine, and 



Three calculation specifications are shovm. 
On line 010, EMPNUM (employee number) is 
used as Factor 1. The employee number is 
the search argument. The operation code 
LOKUP which is coded in columns 28-32 caus- 
es the lookup operation to be performed. 
Factor 2 contains the name of the collec- 
tion of arguments (TABNUM) which is 
searched by the search argument. The 
result field contains the name of the col- 
lection of functions (TABRAT). Thus, this 
operation causes the employee number 
(EMPNOM) to be used as the search argument 
for the data contained in TABNUM. The 
result field is four positions long with 
three decimal positions. The 03 entered in 
columns 58-59 indicates that indicator 03 
will be turned on when the search argument 
finds an entry in the argument table that 
is equal to the search argument. 

The specifications on line 020 are per- 
formed when indicator 03 is on. The rate 
for the employee (TABRAT) which has just 
been located is multiplied by the number of 
hours worked (HRSWKD) , and the result is 
stored in EARNS which is five positions 
long and has two decimal positions. The 
answer is half -ad justed. 

If the search argument does not find an 
equal entry in the argument table 
(indicator 03 is not on), the specifi- 
cations on line 030 are performed. Columns 
9-11 contain the specification NO 3. 

The literal +000.00 is then moved to the 
field EARNS, specifying that the employee 
does not have an entry in the table. 



EXIT TO A USER'S ROUTINE 



GENERAL INFORMATION 



By use of the EXIT operation code on the 
Calculation Specification sheet, RPG pro- 
vides the facility to transfer control from 
the RPG object program to some subroutine 
that has been coded independently. A sub- 
routine might be a standard routine (such 
as a state withholding tax) or it might be 
a routine that performs a function not 
easily accomplished using RPG (such as a 
square-root computation). The subroutine, 
written in the Assembler language, is coded 
by the user, and entries made on the calcu- 
lation sheet enable the programmer to: 

1. Exit frcMi the RPG program to the sub- 
routine , 



3. Return to the main program after the 
subroutine has performed its function. 
Each subroutine must be assembled as a 
separate module. 



HOW TO CODE EXIT 



On the Calculation Specification sheet, the 
EXIT operation can be a conditional opera- 
tion. 7-8, 9-11, 12-14. or 15-17, the EXIT 
occurs when the designated conditions are 
satisfied. If no indicators are used, the 
EXIT occurs every time the detail calcula- 
tions are performed. Columns 28-31 must 
contain the operation code EXIT , and Factor 
2 must contain the label of the user's 
subroutine. 



POSITION OF EXIT IN THE CALCULATION 
SPECIFICATION ENTRIES 



The following results are obtained depend- 
ing on the location of the EXIT code on the 
Calculation Specification sheet. 



Calculation 
Entry 



1. First Detail 



2. Last Detail 



First Total 



Last Total 



When the EXIT 
Will Occur 



L 



At the end of the data 
routine (after the data 
is extracted from the 
input record) . 

Immediately before 
heading records are 
written. 

At the end of the input 
routine (after the 
record-type has been 
determined and the 
control-field break has 
been tested) . 

Immediately before the 
total records are writ- 
ten. 



GENERAL RULES FOR USING EXIT 



RPG provides the facility for the subrou- 
tine to test indicators amd use fields 
that have been defined in the RPG program. 
RPG also provides the facility for the RPG 
program to use fields that have been 
defined in the subroutine. These two 
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facilities are provided by using the two 
operation codes RIABL and ULABL. 

If the user has defined a field in the 
subroutine, and this field is to be used 
in this RPG program, he roust code: 

1. ULABL in the operation- code columns. 

2. The label of the field in Result 
Field . 

3. The length of the field in Field 
Length . 

4. The decimal length in Decimal Posi- 
tion , if applicable. 

If the user has defined a field in the 
RPG program and this field is to be used 
in the subroutine to which the EXIT will 
occur, he must code: 

1. RLABL in the operation code. 

2. The label of the field in Result 
Field . 

When executing the subroutine, the user 
may need to reference the resulting indi- 
cators that are used in the RPG portion of 
this program. To do this, the user must 
code: 

1. RLABL in the operation code columns, 

2. INnn in the result field. The nn 
represents the specific indicator that 
the user wants to test in the subrou- 
tine. Therefore, if MR was to be 
tested in the subroutine, he would 
code INMR in the result field- 
Indicators defined in the subroutine 

cannot be used or referenced in the basic 
operating system RPG program. 



2. When control of the program passes 
from the RPG program to the subrou- 
tine, the address of the RPG instruc- 
tion to which the subroutine must 
return is stored in register 1**. 



3. The RPG instruction to which the sub- 
routine returns is the instruction 
that follows the EXIT operation. 



<♦. If registers are used within the sub- 
routine, the contents of the registers 
the programmer iatends to use must be 
stored before the subroutine is exe- 
cuted. 

5. Before the subroutine transfers back 
to the RPG program, the registers must 
be restored to their original con- 
tents. 

6. The general registers available for 
the user's purposes are registers 2, 
8, 9, 10, and 11. Registers 3-7 can 
be used only if no RLABL' s are speci- 
fied in the user's subroutine. The 
remaining registers cannot be used. 



USING INDICATORS AND FIELDS IN THE EXIT 
ROUTINE 



If in the exit subroutine, the user sets 
on, sets off, or tests resulting indica- 
tors, he must oteerve the following 
rules : 

1. To set on a resulting indicator, set 
the data located at INnn to the hexa- 
decimal FO. 



USE OF REGISTERS 



The way in which registers are used by the 
programmer is strictly defined. These 
rules must be followed: 

1. The register that contains the base 
address of the subroutine is register 
15. The first instruction of the 
programmer's subroutine must load the 
base address of the subroutine in 
register 15. 

Note ; The base register for an exit 
to a user's subroutine for label 
checking is register 9, and not reg- 
ister 15. 



2. To set off a resulting indicator, set 
the data located at INnn to the hexa- 
decimal 00. 

3. To test resulting indicators: 

a. If on, the data at INnn, will be 
the hexadecimal FO. 

b. If off, the data at INnn will be 
the hexadecimal 00. 

If numeric data from the RPG object 
program is used in the subroutine, it will 
be in the packed-decimal format. If the 
numeric data from the subroutine is sup- 
plied to the RPG object program, it must 
be in the pa eked- decimal format. 

Figure 75 shows the coding steps neces- 
sary to implement the EXIT routine. 
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1. An input file of the name INPUT turns 
on resulting indicator 01 if an X is 
in position 80. 

2. If the field AMOUNT is blank, field 
indicator 02 is turned on. 

3. Whenever indicator 01 is on, the cal- 
culation specifications entry EXIT 
causes the program to exit to the 
user's subroutine called TAXROUTE . 

The operation preceding EXIT 
defines (and sets off) an indicator 
uiiat, can jL>e useu xn tti€ suurcuuxne. 

4. Within the subroutine, the user wants 
three things: the AMOUNT field, and 
the indicators 02 and la. RLABL ena- 
bles the subroutine to reference the 
AMOUNT field, and IN02 enables the 



subroutine to test indicator 02. IN14 
enables the subroutine to utilize 
indicator 14 in the subroutine. 



5. In the subroutine, assume there is a 
field (TAXAMT) that the user wants to 
use on the output-format specifi- 
cations. If the field TAXAMT in the 
subroutine is blank, the subroutine 
turns on indicator 14. TAXAMT is 
referenced in the output specifi- 
cations, and it will not be printed if 
indicator 14 is on. If the user 
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calculation specifications. The entry 
ULABL enables the field TAXAMT to be 
referenced by the RPG program. 

On the output sheet, TAXAMT is treated 
as a field. 
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DISK STORAGE CONCEPTS 



This section of the manual is for readers 
not familiar with disk storage operations. 
It contains a general description of data 
organization and retrieval, and defines 
some of the terms you may encounter in 
related literature. 



A logical file may occupy part of a 
disk storage drive, an entire disk storage 
drive, or more than one disk storage 
drive. The location of the logical file 
in disk storage is defined by its lowest 
and highest addresses. This area is the 
extent area . One logical file can occupy 
more than one extent area. The extent 
areas do not have to be adjoining. 



INTRODUCTION AND TERMINOLOGY 



The distinction between two concepts is 
important: file organization and file 
processing . 

File Organization is the method of 
arranging data records on a direct access 
storage device. A file is organized dur- 
ing the development stages of the applica- 
tion. 

File Processing is the method of 
retrieving data records from the file. 

To achieve the most efficient use of 
the System/360 components, carefully con- 
sider the relationship between how a file 
is organized and how to retrieve records 
from it. This is particularly important 
when designing data files for storage in a 
direct access storage device, such as the 
IBM 2311. 

The method of organization best suited 
to a particular file of disk records 
depends upon many factors. These factors 
must be analyzed for each file in each 
particular application. Frequently, you 
can use more than one method of processing 
on the same file. For example, records 
within a file might be processed at random 
during an updating run, and sequentially 
during a billing run. 



DATA FILES 



Data files are recorded on such media 
as: paper, cards, tape, or disk packs. 
Data files consist of a number of indivi- 
dual records that range from a few records 
up to thousands or millions of records. 



RECORD 



A record can be defined as a collection of 
information consisting of alphameric 
and/or nonalphameric characters related to 
a common identifier. The common identifi- 
er is known as a record' s control field , 
or key. Usually, one of the fields within 
a record identifies the record. For exam- 
ple, man number could be the key or iden- 
tifier for a payroll record. 



The size or length of records varies 
from file to file, and can be from eigh- 
teen characters to thousands of charac- 
ters. 



LOGICAL FILE VS PHYSICAL UNIT 



It is important to distinguish between a 
logical file and the physical unit used to 
store the file. A logical file is a group 
of related data records, such as a payroll 
file. 

A physical unit for storage of data 
records could be an IBM 24 00-series Mag- 
netic Tape Unit, an IBM 2311 Disk Storage 
Drive, or an IBM 2540 card Read-Punch. 



A single record usually includes one or 
more logical data fields. A data field is 
a sequence of one or more characters which 
is treated as a processing unit of infor- 
mation. An individual data field is nor- 
mally identified by its location within a 
record. 

The logical structure of records and of 
fields within records is important in 
high-speed recording media such as magnet- 
ic tape and disks. This logical structure 
is strongly affected by whether a record 
is of fixed or variable length. 
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FIXED- LENGTH RECORDS 



In fixed-length record files, all records 
are allocated the same number of character 
storage positions. Identical data fields 
are present in every record, whether they 
are used or not. The control field (key) 
is usually the first field present in a 
record. 

In many applications, the fixed length 
records would make inefficient use of file 
storage space. For example, a fixed 

many storage positions, if the average 
record length is 230 positions and the 
minimum length is only 100 positions. 

Situations such as this require the 
development of space-saving techniques 
based on varying the number of storage 
positions allocated to data records. 



indicated by a block- length character- 
count field present in each block. (See 
Variable-Length Records ) . 

The Basic Operating System handles the 
blocking and deblocking of records so the 
user need only design the most efficient 
blocking factor for his particular data 
file and equipnent specifications. In the 
Basic Operating System, only the input 
records for Indexed- Sequentially or 
Sequentially organized files can be 
blocked , 



FILE ORGANIZATION 



Data records should be organized and 
stored to facilitate subsequent process- 
ing. The two types of file organization 
are: sequential and randcwi . 



VARIABLE-LENGTH RECORDS 



SEQUENTIAL ORGANIZATION 



Conpletely variable- length records are 
sometimes developed for more efficient use 
of storage. In this approach, the data 
portion of the record may be of any 
length, but the key (control field) size 
is constant. A record- length character- 
count field in each record shows the 
length of a variable- length record. 



BLOCKING RECORDS 



The length of individual data records 
varies with type of data and the applica- 
tion that requires such data. The format 
of a data record is significant to the 
efficient use of the various storage media 
available on the System/360. One impor- 
tant element in the design of data records 
involves blocking and deblocking . 
Input/output units (storage media) are 
relatively inefficient when used to record 
short blocks of information. To increeise 
the efficiency of input/output units, data 
records are assembled into blocks of 
records whose sizes are convenient and 
efficient for processing. 

Each physical record on either tape or 
disk requires interrecord gaps. These 
gaps are blank areas used to distinguish 
beginning and ending points of a record. 
If records are blocked before loading onto 
a tape or disk, many of these gaps can be 
eliminated. Variable length blocks are 
permitted in basic operating system RPG. 
The length of a variable- length block is 



The logical sequence of records in this 
file depends upon a significant key 
(control field) appearing in the records. 
To establish a sequentially organized 
file, sort and then store the records in 
key sequence. This provides for records 
with successively higher (or lower) keys 
(control numbers) to have successively 
higher (^lysical address numbers. Cards 
and tape files are always organized in 
this serial manner and usually are consid- 
ered as one continuous " string " of 
records. Another variation of sequential 
organization is known as Index ed- 
Sequential organization. 



Indexed-Sequential Organization 



In this type of file organization also, 
the sequence of records depends upon a key 
(control) field. The records are stored 
sequentially in the file. This variation 
of file organization differs form 
Sequential organization in two ways : 

1. The records may be retrieved from the 
file sequentially or in a random 
sequence. 

2. Only records with treuisaction activity 
need be retrieved. 

These differences occur because 
Indexed-Sequential organization uses index 
tables which indicate to the program the 
general location of the records. Thus, 
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the program does not have to step throiigh 
the file, record after record, to locate a 
specific record. 

The index tables (prepared and main- 
tained by the Basic Operating System) are 
analogous to the index card file in a 
library. If you know the name of a book, 
or the author, you can look in the index 
and find the location of the book in the 
book files. 

For example, this might be an address 
(Catalog Number) of 426.25. You would 
then go to the book shelves, and (if it 
was your first time in the library) start 
at the first row of the book files and 
proceed through the rows until you found 
the shelf that contained 426.25. Usually, 
each row contains a sign to indicate the 
beginning and ending numbers of all books 
in that particular row. This, as you 
proceed through the rows, you would cc«n- 
pare 426.25 with the numbers posted on 
each row, Assiime that one row was labeled 
300.88-550.00. You would then search that 
row for the shelf that contained the book. 
The shelves (like the rows) might also 
contain ntunber ranges to indicate their 
contents. In this case, you would scan 
the shelf numbers until you found some- 
thing like ••424. 00-440.96*. Then you 
would look at individual book numbers on 
that shelf until you found "426.25". 

The RPG program uses index tables in 
much the same way to locate records organ- 
ized in an Indexed- Sequential file. 



2. Sequential processing of indexed* 
sequentially organized files. 

3. Random processing of, indexed- 
sequentially organized files and 
randomly organized files. 



CONSECUTIVE PROCESSING 



In consecutive processing of a sequential- 
ly organized file, every record in a file 
is examined, and each successive record in 
the physical file is processed in order. 
For example, in a card file, the card 
records are processed in the order that 
the cards are fed into the system. The 
14th card in the file could not be proc- 
essed until after the 13th card had been 
processed. 



SEQUENTIAL PROCESSING 



Sequential processing of an indexed- 
sequentially organized file has two 
variations . 

1. An entire logical file is processed. 
For example, the physical unit con- 
sists of payroll records in cylinders 
to 42 and inventory records in cyl- 
inders 43 to 99. Only the logical 
(payroll) file might be processed. 



RANDOM ORGANIZATION 



In randcxa file organization, the records 
are generally not stored in the sequence 
of their keys (control numbers) . A ran- 
domizing formula converts the record key 
to a numerical address (physical address) 
of the storage device. The record is 
stored at the physical address developed 
by the randc»nizing formula. In effect, a 
file of records will be scattered through- 
out an entire disk file. 



2. Only a segment of a file is processed. 
For example, a payroll file is to be 
updated with new pay increases. The 
payroll file is in sequence by depart- 
ment, and each week the pay raises for 
various departments become effective. 
Therefore, on each week's processing, 
only segments of the payroll file are 
updated. The updating is accomplished 
by reading in a card file that con- 
tains the limits of the file to be 
processed. One such card record might 
indicate that the records for depart- 
ments 26-41, are to be updated, anoth- 
er the records for departments 76-80, 
etc. 



FII£ PROCESSING 



RANDOM PROCESSING 



For the three methods of file organization 
(sequential, indexed-sequential, and 
random) there are three methods of file 
processing ; 

1. Consecutive processing of sequentially 
orgeinized files. 



In randcMn processing, the sequence of 
processing has no relationship to the 
sequence the data is stored in the file. 
The data file could be organized in either 
a random or an indexed sequential order. 
This processing is sometimes called 
direct. 
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Indexed-Sequential Files 



2. Indexed-Sequential, 



To find a randcan recor d in an Indexed- 
Sequential file, an index or series of 
indexes is first scanned to localize the 
area of search by determining the track 
that contains the record. The index is a 
sequential list of the key records (of the 
data) with corresponding track addresses. 
The entire track is then scanned to find 
the individual record to be processed. 
This kind of processing is referred to as 
processing in a random sequence with 
record keys (there is no conversion) . 

This type of processing is analogous to 
directing someone to a house location, 
"the Martin family lives on Harrison 
Street", (a track address), "and their 
house number is 4216" (a key). 



Random Files 



3. Direct. 



This applies to update files as well. 
RPG will create sequential output files 
only. 



SEQUENTIAL ORGANIZATION 



RPG object programs process sequential 
files by processing the entire file from 
the beginning to the end. The records may 
be fixed or variable length and blocked or 
unblocked. 



To find a random record in a random file, 
compute the track address by the same 
randomizing formula used to load the file 
of records. You can make direct access to 
the record. Index tables are not 
required. This kind of processing is 
called processing in a random sequence 
using keys or record identification (ID). 
The record identification indicates only 
the location of the record on the track. 
For example, the 2nd, 12th, 18th, etc. 
record on the track. The program makes no 
comparison of key (control field) data 
when a record nundDer is provided. 

This type of processing can also be 
cougar ed to directing sc»neone to a house 
location. "The Martin family lives on 
Harrison Street", (a track address), and 
their house is the 5th house from the 
beginning of the street". (The *5th" is 
the record identification.) 

If random processing is performed with 
key field only, the user supplies track 
address and record key field. The program 
then searches the specified track for the 
record with the corresponding record key. 

If an address is assigned to more than 
one record, these duplicate addresses 
(synonyms) will not be handled by RPG. 



FILE PROCESSING IN RPG 



RPG object programs process the following 
input file organizations: 



INDEXED SEQUENTIAL ORGANIZATION (DIRECT 
ACCESS STORAGE DEVICE) 



RPG processes Indexed-Sequential files in 
three ways: 

1. Sequentially, by processing the entire 
file. 



2. Sequentially, by processing between 
the limits of the file. 



3. Randomly, by processing records on the 
file in a random order. 



The records may be fixed-length and 
blocked or unblocked. 



1. Sequential. 



DIRECT FILES (DIRECT ACCESS STORAGE 
DEVICE) 



A direct file will be processed randomly. 
The records must be fixed-length and 
unblocked. The two major sections 
( Processing Single Input Files , and Multi- 
ple Input Files ) describe disk storage 
processing in the RPG program. In these 
sections, processing methods are described 
in detail including specific examples of 
methods and of coding specifications. 
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PROCESSING SINGLE INPUT FILES 



In this section, the methods of retrieving 
records from one input file are discussed. 
Three types of file organization can be 
processed : Sequent ial , 
Indexed-Seguential, and Direct. 

If there is only one input file, it 
must be designated as the primary file by 
entering a P in column 16 of the File 
Description Specification sheet. 



SEQOENTIAL ORGANIZATION 



Sequential files may be considered as 
"tape-like". The records on the file will 
be made available for processing in the 
same order in which they are located on 
the medium. The file might be contained 
in cards, on magnetic tape, or on a DASD. 
The entire file is processed, beginning 
with the first record and continuing until 
the file is depleted. At this point, an 
end-of-file condition occurs, which can be 
interrogated by RPG by specifying an E in 
column 17 of the File Description Specifi- 
cation sheet. In the case of DASD, the 
extent of the file is obtained from the 
operating system. 

Figure 76 shows the coding on the File 
Description Specification sheet necessary 
to process a sequential file. The name of 
the file is MASTHlIN. The records are 
fixed in length, and the block length is 
200. Each record is 200 characters long. 
A blank in column 32 indicates that the 
file is a sequential file. 
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Figure 76. Coding a Sequential File 



INDEXED- SEQUENTIAL ORGANIZATION 



An indexed-sequential file can only be on 
a direct-access- storage device (such as 
disk or drum). For this organization 
method, an index table associated with the 
file contains a record key for every track 
of the file and the number of the track. 
For ascending files, the index table con- 
tains the highest record key on the track. 
For descending files, the index table 
contains the lowest record key on the 
track. An I roust be entered in column 32. 

For this organization, there are three 
methods of processing: 

1. Processing the entire file sequential- 
ly. 

2. Processing part of the file sequen- 
tially. 

3. Processing the file randomly. 



PROCESSING THE ENTIRE FILE SEQUENTIALLY 



The object program obtains the limits of 
the file from the operating system, and 
the entire file is processed sequentially 
by record key in ascending or descending 
record- key sequence. Column 28 of the 
File Description Specification sheet must 
be blank. 



PROCESSING PART OF THE FILE SEQUENTIALLY 



If only a part of the entire file is to be 
processed, the object program must be 
supplied with both the low and high keys 
that describe which part of the file will 
be processed. Column 28 must contain L. 

An auxiliary file is used to supply 
these limits. This file is called a 
Record Address File (RAF). The RAF does 
not contain data to be processed. It 
contains the record keys (in this case the 
limits) of the data records which will be 
processed. 

The object program obtains the limits 
to be processed from a record contained in 
a RAF and then processes all the data 
between those limits. The object program 
then reads another record in the RAF, and 
the procedure is continued until the RAF 
is depleted. 
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In Figure 77, the first card of the 
record-address file shows that the object 
program is to process from HENRY to RENER. 
The second card shows that the object 
program is to process from JONES to LANON. 
The third card shows that the third part 
of the file to be processed ranges from 
SMITH to ZELDA. Thus, the data records 
that the program processes are contained 
within these limits. In Figure 77, the 
record keys are customer names. 



Customer File 



Record Address File 




Upper Limit 



File is to be processed from 
Henry to Rener. These nomes 
are the Record Keys. 



•Lower Limit 



Figure 77. 



Contents of the Record Address 
File 



The record-address file in this example 
is nothing more than a file which supplies 
limits of the file to be processed. Rules 
for forming record-address files are con- 
tained in Creating Record Address Files in 
this publication. 

Figure 78 illustrates the coding 
required on the File Description and File 
Extension Specification sheets when limits 
of an index ed-sequential file are to be 
processed. In Figure 78, on the File 
Description Specification sheet DISKIN is 



the name of the input file. The records 
are fixed-length, and the block length is 
150. Each record is 150 characters long. 
Limits of the file are to be processed as 
indicated by the L in column 28. The K in 
column 31 indicates that the record key 
will be used to obtain the records from 
the file. 

The record-address file (RAFLIMIT) is 
also an input file. The R in column 16 
indicates that it is a RAF file. It is 
fixed-length; it has a block length of 80, 
and each record is 80 characters in 
length. The length of each record address 
field is 5 characters. 

Because the File Extension Specifi- 
cation sheet is required to relate the RAF 
file to the DASD file, an E is entered in 
column 39. On the file extension sheet 
the coding illustrates that RAFLIMIT is to 
provide the addresses for DISKIN. 



PROCESSING THE FILE RANDOMLY 



A K in column 31 indicates that record 
keys are used to obtain the records. An 
indexed-sequential file may be processed 
randomly by supplying a RAF. Instead of 
supplying the limits (as in the case of 
sequential processing), the RAF contains 
the record key of each record of the file 
to be processed . 

Figures 79 and 80 illustrate the speci- 
fications for this type of organization. 
In this example, the first record from the 
record-address file is read. The first 
RAF entry ADAMS is used to obtain the data 
record whose record key is ADAMS. The 
record is retrieved and is processed. The 
next entry, CABOT, is then used to find 
the next data record. 
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DIRECT ORGANIZATION 



A file with direct organization must 
reside on a direct access storage device. 
Records are retrieved from this file by 
using a track address and either a record 
key or record identification. 

Direct organization is specified by a D 
in column 32 of the File Description 
Specification sheet. The mode of process- 
ing is random, and an R in column 2 8 indi- 
cates random processing. If the record 
key is used to obtain the records, enter a 
K in column 31. If record ID is used, 
enter an I in column 31. 

When an RPG program processes an input 
file of this organization, an RAF must be 
supplied. The necessary steps must be 
supplied which convert the data fields 
contained in the RAF to the track address 
and record key or record ID to be 
retrieved. The conversion routine 
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Figure 80. Processing an Indexed-Sequ6ntial File Randomly, Using an RAF File 



depends, of course, on the way a data 
field can be converted to the track 
address of the record. 

The conversion routine is unique, 
according to the needs of a particular 
installation, but a conversion routine 
must be provided. To retrieve records 
from the file, some data fields must be 
converted to produce the track address of 
the record. 



Associating a Particular Conversion 
Routine with RAF 



The File Extension Specification sheet 
entry describing the RAF file contains a 
field name in columns 27-32. This name is 
an RPG internal label linking the file 
extension specification with the corres- 
ponding EXTCV operation on the Calculation 
Specification sheet. It appears there as 
an entry in Factor 1 . 



Supplying Data to be Converted 



One entry in the RAF is supplied for each 
record to be retrieved. The data supplied 
by the RAF should be such that the track 
address and either record key or record 
identification can be derived. Because 
the RAF is not described on the input 
specifications, the entries in the RAF 
will be made available consecutively in a 
field called CONTD. This field is always 
alphameric, and it has the record length 
as specified in columns 29-30 of the File 
Description Specification sheet. 



Note: There could be another direct 
organized file in the same object 
program, for which a different EXTCV 
routine would be necessary. 



The entry of EXTCV in the operation 
field indicates the point in the RPG pro- 
gram where the random address conversion 
routine is to be performed. Factor 2 must 
contain the name (or label) of the exter- 
nal routine. This external conversion 
routine must follow the same conventions 
which are specified for the EXIT routine. 
See Use of Registers in this publication. 
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The result field must contain the name 
(or label) of the field which will contain 
the track address of the record to be 
retrieved. This is the result of the 
conversion. If the record is retrieved by 
key (specified by a K in column 31 of the 
File Description Specification sheet) , 
KEYCV has to be entered as the operation 
code of the next calculation specifi- 
cation . 



The result field must contain the name 
(or label) of the field which will contain 
the actual record key used to locate the 
record. The external conversion routine 
is written (in Assembler language) as an 
independent routine that must be combined 
with the generated object program. The 
name of this routine is the label which 
appears as Factor 2 of the EXTCV operation 
on the Calculation Specification sheet. 



the field that will contain the record 
key of the record. This entry must 
follow the EXTCV entry if the record 
is retrieved by key. 



Figure 81 shows how the calculation 
specifications are coded for an external 
conversion routine. In this case, if the 
records from the disk are retrieved from 
information in a RAF file, each record 
address is contained in a special hold 
area CONTD. The length of this field 
(CONTD) is specified in columns 29-30 in 
the File Description Specification sheet. 
CONTD need not be defined as an RPG Label 
(RLABL) when EXTCV is used, nor do CON- 
VERT, TRKADR, and KEYFLD. 



USING THE ADDROUT (ADDRESS OUTPUT) OPTION 



Conversion Operation Codes 



The operation codes which follow are used 
in conjunction with the conversion rou- 
tines. If there are several conversion 
routines in the program, these codes are 
repeated. However, the conversion routine 
(or routines) must be written first on the 
Calculation Specification sheet, preceding 
all other calculations. 

EXTCV. This entry is used to indicate 
that a conversion routine, which is 
external to the RPG language, is sup- 
plied by the user. 

KEYCV. This entry declares that the name 
specified in the result field will be 



This option could be used to print out a 
DASD file of records in a sequence other 
than the sequence in which the file is 
organized. For example, a payroll file 
that is organized in sequence by man num- 
ber and department could be printed out in 
sequence by social security number. 

Instead of sorting the entire file by 
social security number, the Disk Sort 
Program merely sets up a new file. This 
file consists of records containing the 
addresses of the original data records. 
This new file has the effect of being a 
Record Address File. That is, each record 
in this file directs the program to speci- 
fic disk addresses to obtain the original 
data records in social security number 
sequence. 
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Figure 81. Specifying a Conversion Routine 



BOS/360 RPG (8K Disk) 113 



IBM 



INTERNATIONAL BUSINESS MACHINES CORPORATION 

REPORT PROGRAM GENERATOR FILE DESCRIPTION SPECIFICA 

IBM System/360 



Progr< 
Progr< 



Punching 
Instruction 


Graphic 
















Punch 



















" 


1 

E 
6 












■ 


- 




File Type 














- 




tAode of Processing 


i 

i 

39 




























Z 

J 
53 


Line 
3 4 5 


Filename 

7 8 9 10 11 12 13 14 




28 




Device 

40 41 42 43 44 45 46 


Symbolic 
Device 

47 48 49 50 51 52 


u 


15 




=ile Designation 




Address Field 


0£ 
16 




End of File 


29 30 




Record Address Type 


E 

17 




Sequence 


31 


Type of File 


< 

18 










File Format 


a 

M 
32 


Overflow Indicator 


> 
u. 

19 


Block 
Length 

20 21 22 23 


Record 
Length 

24 25 26 27 


33 34 


Key Field 

Starting 

Location 

35 36 37 38 


^i 




P 


f 


I 


L 


E 


7 


/?6 




/ 


R 


£ 




F 




9 


6 




i 


8 






8 


I 


T 














E 


















1 
i 










$\Z 


^ 


F 


P 


R 


I 


N 


A 


R\Y 




/ 


P 




/? 


F 


2 


4 


^ 




8 


^ 


/? 






I 


D 












































Oj3 




F 












1 














1 
































































i 































































































IBM 



INTERNATIONAL BUSINESS MACHINES CORPORATION 

REPORT PROGRAM GENERATOR FILE EXTENSION SPECIFICAT 

IBM System/360 



Punching 
Instruction 


Graphic 
















Punch 

















Line 

3 4 5 


S. 
>. 

E 


Record Sequence of the Chaining File 


To Filename 

19 20 21 22 23 24 25 26 


Table 
Name 

27^28 29 30 31 32 


Number 


of Table Entries Per Record 


Table 
Name 

(Alternating 
Table! 

46 47 48 49 50 51 






7 8 


Number of tite Chaining Field 


33 34 35 


Number of Table Entries 




9 10 


From Filename 

11 12 13 14 15 16 17 IS 


Per Table 

36 37 38 39 


Length o 


f Table 


Lengtil 


Entry 

40 41 42 


i 
S. 

43 


1 


a 

c 

I 

45 


Entry 
52 53 ; 


^i'(}) 








ri\L\B TA6\ 


F^RIMARY 




















2 






; 


; M 1 i M 






















o;3 








I M 1 1 ; 1 


: ^ : : ; ; 






















oU 








; i j 


1 1 • 




Mi 














■ ' : 














> : i 



























Figure 82. Using the ADDROUT Option 



Figure 82 illustrates the File Descrip- 
tion and File Extension Specification 
sheets for a DASD file contiaining a data 
file and an Address output (ADDROUT) file. 



The length of the Record Address Field 
(columns 29-30) is 8. The 8 bytes are a 
fixed requirement of the Disk Sort Pro- 
gram. 



ADDRESS OUTPUT FILE 



The file name Filetaq is assigned to the 
ADDROUT file. It is an input file (I in 
column 15); it is an RAF file (R in column 
16) and the end-of-file condition is det- 
ermined by this file (E in column 17). 

The file format is fixed (F in column 
19) as a requirement of the Disk Sort 
Program. 

In this example, the block length is 96 
and the record length is 8. 



The entry Z in column 31 is required 
for this operation. It applies not to the 
address output file (FILETAG) itself, but 
to the file (PRIMARY) that is to be 
retrieved by the address output file. 



The T in Type of File Organization 
(column 32) indicates that the file is the 
output of the ADDROUT option of the Disk 
Sort Prograjn. The E in Extension Code 
(column 39) means that a File Extension 
Specification sheet is required. 
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ORIGINAL DATA FILE 



FILE EXTENSION SPECIFICATIONS 



The file name Primary is assigned to the 
original data record file. It is an input 
file (1 in column 15). It is a primary 
file (P in column 16), and it is in 
ascending sequence (A in column 18). The 
sequence refers to the sequence in which 
the file is maintained. 



The file extension specifications are used 
to identify, for the RPG program, the 
relationship of th^se two files. The name 
FILETAG (essentially an RAF) is specified 
in From Filename . The name PRIMARY is 
specified in To Filencuue because this is 
the file the RAF is linked to. 



In this example, the file format is 
fixed (F in column 19). The block length 
is 240 and the record length is 80. The 
mode of file processing is random (R in 
column 28). It is random processing 
because the file is processed in sequence 
by social security number, but it is 
organized in sequence by man number and 
department . 

The entry I must appear in cblumn 31 
regardless of how the file is organized, 
since the records are retrieved by record 
ID. 



Note that Table Name (columns 27-32) is 
left blank. This field would normally 
contain the label of the EXTCV specifi- 
cation (Factor 1) that links to the exter- 
nal conversion routine, which converts the 
data in an RAF to an address for a DASD. 
When the ADDROUT option is used, no data 
conversion is necessary because the data 
in FILETAG is already in disk address 
format . 
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PROCESSING MULTIPLE INPUT FILES 



Multiple input files may be processed 
using either the matching record technique 
or chaining. These two concepts are dis- 
cussed here. 



SEQUENTIAL PROCESSING OF MULTIPIZ INPUT 
FILES (MATCHING) 



The Matching Field entry, (entered in 
columns 61-62 on the Input Specification 
sheet — see Figure 83) determines which 
records of a secondary file are to be 
processed. Both files are processed 
sequentially. The following rules apply 
to the matching-f ield entry. 

1. There can be three matching field 
specification entries (Ml, M2, and M3) 
per record. 

2. The locations of the matching fields 
within a record-type of a file must 
remain fixed. 

3. when there is more than one record- 
type in an input file, the locations 
of the matching fields in the various 
types need not be the same. 

4. Not all the record-types in a file 
nwst have a matching field. If an 
entire file is specified without 
matching fields, it will be completely 
read and processed first. 



5. If Ml, M2, and M3 are specified in the 
primary file. Ml, M2, and M3 must be 
specified in the secondary files. 
Incorrect results will be obtained if 
the same number of matching fields is 
not specified. For example. Figure 83 
shows three record- types. Record- type 
AA has two matching fields, and 
record-type BB has two matching 
fields. If record-type BB had three 
fields, incorrect results would be 
obtained. Record type CC has no 
matching fields (refer to step U). 



The following example may be used to 
illustrate how the matching field specifi- 
cation is used in conjunction with primary 
and secondary files. Assume that two 
files (in sequential organization) are 
used as shown in Figure 84. The primary 
file has records which contain heading and 
rate information. The secondary file 
contains detailed information which sup- 
plements the primary file. 

The input specifications required to 
match these records are shown in Figure 
85. 

The specifications Ml and M2 cause each 
detail record to be compared against the 
primary file's record that has just been 
read. The fields DIVSON and DETDIV in 
both files are identified by M2; the field 
department (DEPT and DETDEP) in both files 
is identified by Ml. 
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Figure 83. Matching Field Entries 
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Figure 85. Specifying Matching Fields 



MATCHING RECORD INDICATOR 



The matching field entries of Ml and M2 
(and also M3) have an associated internal 
indicator MR (Matching Record) . This 
indicator, which is similar to a result 
indicator, is used to control functions 
specified on the Calculation and Output- 
Format Specification sheets. 

The MR indicator is turned on when a 
record of a secondary file matches a 
record of the primary file- It remains on 
during the complete processing of the 
record, and it is turned off when all 
total calculations and printing that may 
be caused for this record are completed. 

If, as in Figure 8U, a detail record 
does not have a matching primary record 
(card 035) or if a master record does not 
have a matching detail record (card 025) , 
the indicator MR is not turned on- This 
indicator can be used on the calculation 
specifications to prevent calculations 
upon a detail record contained in the 
secondary file. It could also be used on 
the output specifications to select 
unmatched detail cards. 

The matching- fields specification can 
be used even though not all of the record- 



types in the file contain the fields used 
for matching. When these record-types are 
specified on the input sheet, the matching 
fields specification is left blank. This 
indicates to the program that these 
record- types do not need to be checked for 
a matching field. These records are proc- 
essed iiranediately after any total opera- 
tions whose conditions are satisfied. 



MATCHING FIELDS SPECIFIED AS NUMERIC OR 
ALPHAMERIC 



Numeric 



If a field used as a matching record field 
has been specified as a numeric field (an 
entry has been made in Decimal Position ) , 
all zone- bits in all positions of the 
record are removed before the comparison 
of matching fields is made. 
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Alphameric 



If a field used as a matdhing record field 
has been specified as an alphameric field 
(blank decimal positions) , no zone- bits 
are removed from the record before the 
con^arison is made. 



SEQUENCE OF ASSIGNING MATCHING FIELDS 



One, two, or three fields can be matched 
in one operation. However, if more than 
one field is matched, the designations of 
M3, M2, and Ml must be assigned in the 
same sequence in which the fields are to 
be arranged for matching. M3 is assigned 
to the highest-order field, M2 to the next 
lower-order field, and Ml to the lowest 
order field. 

For example, in Figure 85 only two 
fields are matched. Ml is assigned to 
DEPT which is the low- order field, and M2 
is assigned DIVSON, whicii is the high- 
order field. 

The position in the record of the 
fields to be matched does not have to be 
the same in both files. For example, in 
Figure 85, the field DETDIV is located in 
positions 1-4 of the detail records, and 
the field DIVSON is located in positions 
28-31 of the rate- header records. 



ORDER OF PROCESSING MATCHED RECORDS 



Figure 86 illustrates a primary and a 
secondary file. The records in the two 
files will be processed according to four 
possibilities: 

1. Whenever there is a matching primary 
record 



2. Whenever there is a matching secondary 
record 

3. Whenever there is an unmatched primary 
record 

4. Whenever there is an unmatched secon- 
dary record. 

In Figure 86, indicator 01 is turned on 
whenever there is a primary record. Indi- 
cator 02 is turned on whenever there is a 
secondary record. Thus, 

1. A matching primary record will be 
coded 01 and MR. 

2. A matching secondary record will be 
coded 02 and MR. 

3. An unmatched primary record will be 
coded 01 and NMR. 

4. An unmatched secondary record will be 
coded 02 and NMR. 

The order in which the primary file and 
the secondary file are processed is listed 
here. Sample Program Two uses the match- 
ing field specifications. 
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If more than one secondary file is 
specified, the secondary files will be 
processed in the sequence they are speci- 
fied in the File Description Specification 
sheet. 



Primary File 



Secondary File 



(nc 


X/ ' 


)06 


«, // 004 




'-"'"' V 004 




y^/ 002 




// 001 








/ 001 








Indicator 02 



Figure 86. Order of Processing Matched Records 



120 



Card Transaction File 
(Chaining File) 



Master Customer File 
(Chained File) 




Customer Number 
(Chaining Field) 



^"930 Name, Address, Etc. 
rll50 Name, Address, Etc. 

,1245 Name, Address, Etc. 
-1250 Name, Address, Etc. 
1350 Name, Address, Etc. 



Customer Number 
(Chained Field) 



Figure 87. Using Chaining to Process an Indexed- Sequential File 



RANDOMLY PROCESSING MULTIPLE INPUT FILES 
(CHAINING) 

To understand chaining, assume that a 
sequential input file, as shown in Figure 
87, contains information about transac- 
tions made with several customers. The 
card file contains the customer's number, 
but it does not contain his name, address, 
or balance. Another file called MASTCUST 
(Master customer File) contains informa- 
tion about each customer. The RPG object 
program has the ability to use the sec<»id 
file, when preparing a customer report. 

The master customer file has Indexed 
Sequential Organization, and it is to be 
processed randomly. The record key in 
each disk record contains the custoners* 
numbers. The field in the transaction 
file, which contains the customer's num- 
ber, can be used to chain the files 
together. The object program takes the 
customer* s number and locates the record 
with the same record key. The additional 
information, such as the customer's name, 
address, balance, etc. , is associated with 
each record key, and it is immediately 
available for processing. 

The field which links or chains a 
record of one file to a record in another 



file is called a chaining field . The 
transaction file (CARDIN) is called the 
chaining file because it links to the 
chained file. The master customer file 
(MASTCUST) is the chained file because it 
is linked to the transaction file. 

Up to three chaining fields may be 
specified for a record. The chaining 
fields are designated by entering 01, C2, 
or 03 in columns 61-62 of the Input Speci- 
fication sheet. 

Note 1 ; There is no specific relation- 
ship between levels Cl, C2 , or C3 
other than specifying the three possi- 
bilities for chaining fields. 

Note 2 ; A chaining field cannot be in 
packed decimal format and be specified 
as a numeric field. When packed, the 
chaining field must be specified as 
alphameric. 



Figure 88 illustrates coding used for 
chaining the transaction file CARDIN to 
the customer file MASTCUST. On the File 
Description Specification sheet, the card 
file is considered the primary file. When 
CARDIN is depleted, the program goes to 
the end-of-job routine (£ in column 17). 
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The File Extension Specification sheet 
contains the record sequence of the CARDIN 
file and the number of the chaining field. 
On the Input Specification sheet, the two 
files are defined, CUSTNO is the field 
which chains the files. CUSNOl is the key 
field on disk, having a starting location 
of 31 (as denoted in columns 37-38 of the 
File Description Specification sheet). 



When chaining is used, the following 
situation may occur. A chaining record 
(for example, JONES) has no corresponding 
chained record. (JONES is not present in 
the chained file.) Such a situation may 
require special action by the program. 



Indicators 01 and 02 are both on when 
chaining record has a corresponding 
chained record. In this case 01 rep- 
resents the chaining record, and 02 rep- 
resents the chained record. When 01 and 
2 are both on, AMPTD is subtracted from 
BALANC. However, if there is no corres- 
ponding record in the chaining file 
(01N02), halt indicator HI is turned on. 
Thus, the possibility of not having a 
corresponding record in the chained file 
is accounted for, and processing will 
terminate when this situation occurs. 



Note ; This example illustrates the 
only time that two resulting indica- 
tors (representing two different 
record types) can be on at the same 
time. 



Figure 89 and 90 show two additional 
uses of chaining. In Figure 89, the card 
file contains two fields which are both 
used as chaining fields (salesman number 
and customer number) . The field contain- 
ing salesman number is chained to a file 
that is organized by salesman number. The 
field containing the customer's number is 
used to chain to the customer file. 



Chaining 
File 




Salesman Customer 

File File 

Figure 89. Chaining to Two Files 
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Figure 90. Using a Chained File as a 
Chaining File 



In Figure 90, the card file is chained 
to the customer file. Within each custom- 
er record is a field which may be used to 
chain to another file. In this case, each 
record in the customer file contains an 
account number. The account number is 
used to chain to the account file. 



Split Chaining Fields 



Several fields that are not in adjoining 
positions in an input record can be speci- 
fied as one chaining field. The fields 
are specified with the same chaining code 
(CI for example) on the Input Specifi- 
cation sheet, and the fields are then used 
as one chaining field. The first field 
defined on the input sheet is placed in 
the high- order position, and the last 
field is placed in the low-order position. 
The fields are placed in the same sequence 
as they are defined on the Input Specifi- 
cation sheet. 
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CREATING RECORD ADDRESS FILES (RAF) 



PROCESSING LIMITS OF AN INDEXED SEQUENTIAL 
ORGANIZATION 



GENERAL INFORMATION 



A record-address file is one of the ways 
by which the necessary information to 
retrieve records from nonsequential files 
is supplied to the RPG program. Two types 
of record- address files may be lased: 



1. For random processing of a file with 
Indexed-Sequential organization or a 
file with direct organization. 

2. For sequential processing between 
limits of a file with Indexed- 
Sequential organization. 

Only one RAF may be specified for an 
RPG program. An RAF is processed 
sequentially, and it must be on a file 
with sequential organization. An RAF is 
described on the file description sheet 
and the file extension sheet, but it is 
not described on the input sheet. 



When a RAF is used to indicate what limits 
of an Indexed Sequential Organization are 
to be processed, the following rules must 
be observed: 

1. Only two record address entries can be 
in each record. 

2. The record address entry must begin in 
position 1 of the record. The first 
entry indicates the low limit of the 
file to be processed. The second 
entry indicates the upper limit of the 
file. The program will process from 
the lower limit to the upper limit. 

3. The second entry of the record roust 
begin in the position immediately 
following the first entry. No blank 
spaces are allowed. 



MULTIPLE FILE PROCESSING 



RANDOM PROCESSING OF INDEXED OR DIRECT 
ORGANI ZATION 



These rules must be followed when creating 
a RAF for random processing: 

1. For an Indexed Sequential Organiza- 
tion, the field will contain the 
record key. For a direct organiza- 
tion, each entry in the RAF must con- 
sist of a field to be converted to the 
track address, and either the record 
Key or the record ID. 

2. The record addresses must begin in 
position 1 of the record. 

3. The length of the field must be the 
same for all records. The numeric 
fields must always be unpacked. 

4. The number of field entries in a 
record may vary. A blank field, which 
is equal in length to the record- 
address field, will cause the RPG 
program to read the next record in the 
RAF. 



RPG will process multiple files two ways: 

1. Sequentially - by using the matching 
record technique 

2. Randomly - by using the chaining 
technique 

Figure 91 shows the processing possi- 
bilities for files which have Sequential, 
Indexed Sequential or Direct Organization. 

A sequential organization is processed 
sequentially and controls the processing 
of records in: 

1. Another Sequential Organization. Both 
files are processed sequ«itially, 
using matching records to govern proc- 
essing. 

2. An Indexed-Sequential Organization. 

If the file is processed sequentially, 
the matching- record technique is used 
to control processing of the Indexed 
Sequential File. If the file is proc- 
essed randomly, chaining fields in the 
sequential file specify which records 
in the Indexed Sequential Files are to 
be processed. 
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* A Record Address File may be used to supply the limits (in the case of sequential processing) or the 

actual Record Keys (in the case of random processing), 
n The From File must be specified as sequential. 
+ A Record Address File is converted to supply the record locations on the DASD. 

Figure 91. Processing Multiple Input Files 



3. A Direct Organization. A direct 

organization will be processed random- 
ly, under control of the sequential 
file. The sequential file will con- 
tain chaining fields which will be 
converted to the record locations on 
the Direct File. 

Note ; In all three cases, the Sequen- 
tial Organization will be processed 
sequentially. 



An Indexed-Sequential organization may 
be processed sequentially or randomly, and 
it controls processing of records in: 



1. A Sequential Organization. The 

records in both files will be proc- 
essed sequentially, using matching 
records to control processing. 



2. Another Indexed- Sequential Organiza- 
tion. If the file is processed 
sequentially, matching records are 
used to control processing. (Both 
files are processed sequentially.) If 
the file is processed randomly, chain- 
ing fields will be used to control 
processing. 
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3. A Direct Organization. Chaining 

fields in the indexed file are con- 
verted to supply the record locations 
in the direct file which will be proc- 
essed. The direct file is processed 
randomly. 

A direct organization is processed 
randomly and controls processing of 
records in: 

1. An Indexed-Sequential Organization. 
The indexed file is processed random- 
ly, and chaining fields in the direct 
file control processing of the indexed 
file. 

In both cases, the direct organiza- 
tion is processed randomly. 

2. Another Direct Organization. Chaining 
fields contained within the direct 
file are converted to provide the 
location of the records in another 
direct organization. The records in 
both files are processed randomly. 
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RPG SOURCE DECK ARRANGEMENT 



The source deck prepared by the programner 
will be arranged as shown in Figure 92. 
The contents of the basic operating system 
Job Control statements are listed in the 
programmer's guide listed on the front 
cover of this publication. 



Processor 
Control Card 
Column Contents 

1-5 XXXXX 

6 H 



rz 



Output-Format 
Specifi options 



Calculation 
Specifications 



Input Specifications 



File Extension 



File Description 



RPG Control Card 



Basic 

Operating System 

Job Control Statements 



7-9 



10 



008, 016, 

032, oeu 



P, R, 
or blank 



Figure 92. RPG Source Deck Arrangement in 
the Basic Operating System 
Input Stream 



The order in which the programmer plac- 
es his source deck is as follows: 



1. Basic Operating System Job Control 
Statements 

2- RPG Control Card (Processor Control 
Card) 

3. File Description Specifications 

*». File Extension Specifications 

5- Input Specifications 

6. Calculation Specifications 

7. Output- Format Specifications 

8. End-of-File Card 

The contents of the RPG control card 
follow. 
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D, B, 
or blank 



Explanation 

Page and Line numbers. 

Identifies the card as a 
header card. 

Size of Generating 
Machine (8K, 16K, 32K, 
or 6UK). This entry 
must not exceed the main 
storage capacity. 

Enter a P if the 
object program deck is 
to be punched in cards 
(compile-Only option). 
Enter an R if the object 
program is to be written 
in the relocatable 
library (permanently) 
and executed immediately 
following compilation 
(Ccanpile-and-Execute 
option). Leave blank if 
the object program is to 
be written in the relo- 
catable library 
(temporarily) and exe- 
cuted immediately fol- 
lowing compilation 
(Compile-and-Execute 
option) . 

Note: RPG does not 
check to determine if 
the phase name has been 
previously cataloged in 
the relocatable library. 
Therefore, if the user 
wishes to recatalog the 
object program at 
another time, he must 
first delete the pre- 
vious entry. 

Type of RPG run. 
Punch a D if a listing 
is to be produced and no 
compilation. Punch a B 
if a listing is to be 
bypassed and the compi- 
lation is to be per- 
formed, (Bypass Listing 
option). Leave this 
column blank for both a 
listing and a compila- 
tion. 



12-14 008, 016, Size of Object 
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032, 064 



15-16 Blank 



17 



1, 2, or 
blank 



Machine (8K, 16K, 32K, 
or 64K). 

Leave these columns 
blank. 

If the Sterling Shill- 
ings Field On Input is 
in the IBM format, punch 
1 in this column. If it 
is in the BSI format, 
punch 2. Otherwise 
leave blank. 



26 A, or 

blank 



Alternate Collating 
Segue nee . Enter an A in 
this coliamn, if an 
external subroutine is 
used to treuislate the 
sequence of a matching 
field to the collating 
sequence of the 
System/360. If an 
external translating 
subroutine is not used, 
leave this column blank. 



18 



1, 2, or 
blank 



19 



20 



0. 1, 2, 
or blank 



0, 1, 2, 
or blank 



21 



I or 
blank 



22-25 Blank 



If the Sterling- Pence 
Field on Input is in the 
IBM format, punch 1. If 
it is in the BSI format, 
punch 2. Otherwise, 
leave blank. 

If the Sterling-Shill- 
ings Field on Output is 
in the printer format, 
punch 0. If it is in 
the IBM format, punch _1. 
If it is in the BSI 
format, punch 2, Other- 
wise, leave blank. 

If the Sterling-Pence 
Field on Output is in 
the printer format, 
punch 0. If it is in 
the IBM format, punch 1. 
If it is in the BSI 
format, punch 2. Other- 
wise leave blank. 

Inverted Print . If 
numeric literals and 
edit words use the Euro- 
pean conventions of 
punctuation (commas for 
deciital point and 
vice -versa) , enter an I^ 
in this column. Other- 
wise leave blank. 

Leave these columns 
blank. 



27-74 blank 



75-80 XXXXXX 



Leave these columns 
blank. 



Program Identification . 
Enter in these columns 
the program identifi- 
cation that will appear 
in the object program 
identification field. 
(See Note.) 



Note ; Object program identification 
and the sequence number will be 
punched in each card of the object 
program deck. If the user specifies 
the program identification in the RPG 
Processor control card, XXXXnnnn will 
be punched in each card (XXXX = the 
first 4 characters of the program 
identification; nnnn = sequence number 
of the card) . If no program identifi- 
cation is specified, RPGOnnnn will be 
punched in each card. 



Although only the first 4 characters 
of the program identification appear- 
ing in columns 75-80 will be punched 
in the object deck, all 6 characters 
constitute the module name if the 
object program is cataloged in the 
relocatable library. 
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VARIABLE- LENGTH RECORDS 



UNBLOCKED RECORDS 



BLOCKED RECORDS 



The format of a variable- length unblocked 
record is as follows: 



The format of a variable-length blocked 
record is as follows: 



1 BL I RL 1 DATA RECORD | 
L L i. J 



I BL I RL I DATA RECORD | RL jDATA RECORD | 



where BL is the block length and RL is the 
record length. Each physical record con- 
tains one data record and 2 four-character 
fields » one containing the block length 
and one containing the record length. 
Figure 93 illustrates a segment of a file 
of variable-length unblocked records 
(VARUBLK). Data Record 1 contains 53 
characters, has a record length of 57, and 
a block length of 61. However, when spec- 
ifying these lengths, the user is con- 
cerned only with the length of the data 
record. The four- character record- length 
field and block- length field are not con- 
sidered. In the File Description Specifi- 
cation sheet, the data record length of 
the largest physical record in the file is 
specified for both record length and block 
length. In Figure 95, 100 is specified 
because the largest data record in VARUBLK 
is Data Record 2, which contains 100 char- 
acters. Figure 96 illustrates the coding 
required in the Output-Format Specifi- 
cation sheet for the variable- length 
unblocked record file VARUBLK. 



where BL is the block length and RL is the 
record length. A physical record contains 
one or more data records, each having a 
corresponding record- length field. Figure 
94 illustrates one physical record in a 
file of variable- length blocked records 
(VARBLK). This physical record contains 
three data records, having lengths of 53, 
100, and 31 characters. (Assume that this 
physical record is the largest in the file 
VARBLK. ) The total number of characters 
is 184, which is placed in Block Length 
(columns 20-23) in the File Description 
Specification sheet as illustrated in 
Figure 95. The maximum length of any data 
record within the file is 100, which 
appears in Record LeiK^th (columns 24-27). 
If the filename in Figure 96 were changed 
to VARBLK, the coding illustrated would be 
equally applicable to the blocked file. 



Physical Record 



Physical Record 



Physical Record 



VARUBLK 



BL 



RL 



@@ 



Data Record 1 



BL 



RL 



Data Record 2 
(100) 



BL 



RL 



Data Record 3 



@ ® 
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Figure 93. Variable- Length Unblocked Records 



Physical Record 



VARBLK 



BL 



RL 



Data Record 1 



RL 



Data Record 2 
(lOO) 



RL 



Data Record 3 




Figure 94. Variable- Length Blocked Records 
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Figure 95. Example of Block Lengths and 
Record Lengths of Variable- 
Length Records 



Note ; Within RPG, any reference to 
the record length refers to the length 
of the data record, and does not 
include the block- length or the 
record-length fields. This also 
applies when specifying the end posi- 
tion in the output record. In columns 
40-43 of the output-Format Specifi- 
cation sheet, the position in the data 
record is specified without reference 
to the record-length field. 
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Figure 96. Output- Format Specification Sheet for a Vauriable- Length Unblocked Record File 
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DIAGNOSTICS 



The Basic Operating System RPG diagnostic messages to the programmer appear in the fol- 
lowing listing. The abbreviated specification types appearing within parentheses (FDS, 
FES, IS, CS, and OF) refer to the RPG specification sheet on which the erroneous entries 
were made (File Description, File Extension, Input, Calculation, and Output-Format, 
respectively) . 



NOTE 
1 



6 

7 

8 

9 
10 

11 

12 

13 

14 
15 



CADSE OF ERROR 

The File Type entry (FDS, column 15) is not I,0,U, 
or C, or is blank. 

The Mode of Processing entry (FDS, column 28) is 
invalid for disk device. 

The Length of Record Address Field entry (FDS, 
columns 29-30) is invalid or is blank. 

The Record Address Type entry (FDS, column 31) is 
not K or I. 

The File Designation entry of I (FDS, column 16) 
requires an entry in Extension Code (FDS, column 
39). 

The File Designation entry (FDS, column 16) is not 
P,S,R,C, or T for the input file. 

The Overflow Indicator entry stated (FDS, columns 
33-34) is invalid without a printer device. 

The File Type entry stated (FDS, column 15) is 
invalid with a printer device. 

Multiple primary files are stated. 

The Label Indicator entry (FDS, column 53) is not 
N,S,E, or blank for this tape file. 

The Type of File Organization entry (FDS, column 
32) is not I,D,T, or blank. 

The Extension Code entry (FDS, column 39) is not 
blank for an output file. 

The End of File entry (FDS, column 17) is not E or 
blank. 

The Sequence entry (FDS, column 18) is not A, D, 
or blank. 

The File Designation entry (FDS, column 16) is not 
blank for an output file. 



RESULT 
I is assumed. 

Blank is assumed. 



08 is assumed. 
I is assumed. 
£ is assumed. 

P is assumed. 
Blanks are assumed. 



O is assiimed. 

Secondary file is assumed. 
S is assumed. 

Blank is assumed. 



Blank is assumed. 



£ is assumed. 



A is assumed. 



Blank is assumed. 



—J 
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r T' 

NOTE I 

16 



17 
18 
19 

20 
21 

22 

23 
24 
25 
26 
27 
28 

29 

30 

31 

32 

33 
I X. 



CADSE OF ERROR 

The C entry in File Type , (FDS, column 15) 
requires a card device entry in Device (FDS, 
colunms U0-U6). 

A Record Address File requires an entry in Exten- 
sion Code (FDS, column 39) . 

The File Format entry (FDS, column 19) is not F or 
V. 

The Block Length entry (FDS, columns 20-23) is 
not a numeric entry or is not right- justified. 



The Record Length entry (FDS, columns 2t-27) is 
invalid or is not right- justified. 

The U entry in File Type (FDS, column 15) requires 
a disk device entry in Device (FDS, columns 
U0-U6). 

An End of File entry (FDS, column 17) and a 
Sequence entry (FDS, column 18) are invalid with a 
printer device. 

Columns 28-32 (FDS) are not used with an output 
file. 

More than two secondary files are specified. 



The Overflow Indicator entry (FDS, columns 33-34) 
invalid. 

The Labels entry (FDS, column 53) is incompatible 
with the device specified. 

The End of File entry (FDS, column 17) is not 
blank for an output file. 

The disk device entry in Device (FDS, columns 
40-4 6) requires an S or E entry in Labels (FDS, 
column 53). 

The Extension Code entry (FDS, column 39) is not E 
or blank for an input file. 

The From Filename entry (FES, columns 11-18) is 
not present or is not left- justified. 

The From Filename entry (FES, columns 11-18) is 
not defined. 

The From Filename entry (FES, columns 11-18) is 
improperly defined. 

Number of the Chaining Field entry (FES, columns 
9-10) is not CI, C2, or C3. 



RESULT 
READ42 is assumed. 



E is assumed. 



V is assumed. 



The entry in 
Record Length 
(FDS, columns 
24-27) is assumed. 



0080 is assumed. 



DISK is assiimed. 



Blanks are assumed. 



Blanks are assumed. 



Additional card(s) not 
processed. 

Blanks are assumed. 



Blank is assumed. 



Blank is assumed. 



S is assumed. 



E is assumed 



Card not processed. 



Card not processed. 



Card not processed. 



Card not processed. 
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NOTE 
34 

35 

36 
37 

38 
39 
40 
41 
42 
43 
44 
45 

46 

47 

48 

49 

50 

51 

52 
t X 



CAUSE OF ERROR 

The Record Sequence entry (FES, columns 7-8) is 
invalid. The positions are neither both numeric 
nor both alphabetic. 

The To Filename entry (FES, columns 19-26) is not 
present or is not left- justified on RAF or Chain- 
ing type specifications. 

The To Filename entry (FES, columns 19-26) is not 
defined on RAF or chaining type specifications. 

The To Filename entry (FES, columns 19-26) is 
improperly defined on RAF or Chaining type speci- 
fications. 

Columns 33-57 are not all blank on the Chaining 
type File Extension entry. 

Columns 7-10 are not all blank on the RAF type 
File Extension entry. 

columns 33-57 are not all blank on the RAF type 
File Extension entry. 

Columns 7-10 are not all blank on the Table type 
File Extension entry. 

The To Filename entry (FES, colianns 19-26) is not 
left- justified on a Table type specification. 

The To Filename entry (FES, columns 19-26) is not 
defined on a Table type specification. 

The To Filename entry (FlES, columns 19-26) is 
improperly defined on a Table type specificaticm. 

The Table Name entry (FES, columns 27-32 and/or 
columns 46-51) is not present or is not left- 
justified. 

The letters TAB are not present in columns 27-29 
and/or columns 46-4 8. 

The Number of Table Entries Per Record entry (PES, 
columns 33-35) is not numeric. 

The Nximber of Table Entries Per Table entry (FES, 
columns 36-39) is not numeric. 

The Length of Table JEntry entry (FES, columns 
40-42 and/or columns 52-54) is not numeric. 

The Packed entry (FES, column 43 and/or column 55) 
is not P or blank. 

The Decimal Pos . entry (FES, column 44 and/or 
column 56) is not blank or a numeric digit. 

The Sequence entry (FES, column 45 and/or column 
57) is not A, D, or blank. 



RESULT 
Card not processed. 

Card not processed. 

Card not processed. 
Card not processed. 

Columns 33-57 are ignored. 
Columns 7-10 are ignored. 
Columns 33-57 are ignored. 
Columns 7-10 are ignored. 
Blanlcs are assumed. 



Blanks are assumed. 



Blanks are assumed. 



Card not processed. 



Letters TAB are assumed. 



010 is assumed. 



0100 is assumed. 



008 is assumed. 



Blank is assumed. 



is assumed. 



Blank is asstmed. 



J 
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I NOTE I CAOSE OP ERROR 

53 I The Form Type entry (FES, column 6) is not E, 

55 I The Name of I^bel Exit entry (FDS,coltimns 54-59) 
is invalid. 

56 i Columns 60-65 (FOS) are not all blank. 

57 I The Name of Label Exit entry (FDS, columns 5<*-59) 
must be blank unless the Labels entry (FDS, column 
53) is N or E. 

60 I No RPG Processor Control Card. 

61 I Column 11 of RPG Control Card does not contain D, 
B, or blank or is invalid. 

62 I The machine size (RPG Control Card, columns 7-9 
and/ or columns 12-14) is not 008, 016, 032, or 
064, or is invalid. 

63 i Columns 17-20 of RPG Control Card contain invalid 
entries . 

64 I Column 21 of RPG Control Card does not contain I 
or blank. 

65 I Column 26 of RPG Control Card does not contain A 
or blank. 

66 I column 10 of the RPG Control Card does not contain 
P, R, or blank. 

67 I Columns 70-80 of the RPG Control Card is blank or 
invalid. 



71 I The Result Field entry (CS, columns 43-48) is 
required but is not present. 



72 
73 
74 
75 
76 

77 

I i. 



The Result Field entry (CS, columns 43-48) should 
be blank for this operation. 

The Factor 1 entry (CS, columns 18-27) is required 
but is not present. 

The Factor 2 entry (CS, columns 33-42) is required 
but is not present. 

The Resulting Indicators entry /en tries (CS, 
columns 54-59) is/are invalid. 

The Factor 1 entry (CS, columns 18-27) should be 
blank for this operation. 

The Factor 2 entry (CS, columns 33-42) should be 
blank for this operation. 



RESULT 
Card not processed. 
Blanks are assumed. 



Blanks are assumed. 



Blanks are assumed. 



Blank is assumed. 



008 is assumed. 



Blanks are assumed. 



Blank is assumed 



Blank is assumed. 



P is assumed. 



Program name RPGO is assumed. 
If R is specified in column 
10, blanks are assumed. 

****** in columns 43-48. 



015 in columns 49-51, 
in column 52, 
and blank in column 53 
are assumed. 

Blanks are assumed. 



Literal 1 is assumed. 



Literal 1 is assumed. 



00 is assumed. 



Blanks are assumed. 



Blanks are assumed. 
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NOTEl CAUSE OF ERROR 

78 I Column 7 of Control Level (CS, cx>lumns 7-8) does 
not contain L or blank. 

79 i All Detail calculations must precede all Total 
calculations . 

80 I The Factor 1 entry (CS, columns 18-27) is not 
left-justified. 

81 I The Factor 2 entry (CS, columns 33-42) is not 
left- j ustif led . 

8 2 I The entry in Factor 1 (CS, columns 18-27) is an 
improperly stated literal or field nauae. 

83 I The entry in Factor 2 (CS, columns 33-12) is an 
improperly stated literal or field name. 

8U I The Factor 1 entry (CS, columns 18-27) is a 
field name of more than six characters. 

85 I The Factor 2 entry (CS, columns 33-42) is a 
field name of more than six characters. 

86 I The Operation entry (CS, columns 28-32) is not 
present or is invalid. 

89 I The Result Field entry (CS, columns 43-48) is 
invalid. 



94 1 The Field Length entry (CS, columns 49-51) is 
neither blank nor numeric, or is not right- 
justified. 



95 i The Decimal Position entry (CS, column 52) is not 
blank or numeric. 



RESULT 
[ Blank is assumed. 

I LP is assumed. 

[Literal 1 is assumed. 

[Literal 1 is assumed. 

[Literal 1 is assumed. 

[Literal 1 is assumed. 

[The first six characters are 

[assumed. 

The first six characters are 
[assumed. 

[The i>K)VE operation code is 
[assumed. 

♦*♦♦♦♦ in columns 43-48 

015 in columns 49-51 

Oi in column 52, 
[and blank in column 53 
[are assumed. 

015 is assumed. 



is assumed. 



96 i The Half Adjust entry (CS, column 53) is not H or 
blank. 

97 j A resulting indicator is required for this 
operation. 

98 I The Indicators (CS, columns 9-17) entry(s) 
is invalid. 

109 I Input and/or output specifications are missing or 
are invalid. 

110 j Form Type (column 6) is not I, C, or O and column 
7 does not contain ♦. 

111 I The Filename entry (IS, columns 7-14) is not in 
the filename table. 

112 I The Filename entry (IS, columns 7-14) is not 
correctly defined on the File Description Specifi- 
cation sheet. 



IH is assumed. 



00 in columns 58-59 
[are assumed. 

00 in columns 10-11 
is assumed. 

Job is terminated. 



I Card not processed. 



jcard not processed. 



Card not processed. 
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NOTE I CAUSE OF ERROR 

113 I AND card out of sequence (first in deck, after 
field name, or invalid file type). 

114 1 No entries in Record Identification QJdes (IS, 
columns 21- Ul) in card preceding the AND card. 

115 I OR card out of sequence (first in deck, after 
field name, or invalid file type) . 

116 I The Filename entry (IS, columns 7-14) is not left- 
justified. 

117 I The ontry in Filename (IS columns 7-14) begins 
with a numeric character. 

118 I Entries in Filename (IS, columns 7-14) and in 
Field Name (IS, columns 53-58) are both present. 

119 i The Sequence entry (IS, columns 15-16) is blank. 

1120 1 The sequence is descending and alphameric sequence 
is found after numeric sequence. 



121 j Descending numeric sequence is found. 



122 I Sequence is numeric and Number entry (IS, column 
17) does not contain N or jL. 

123 1 Sequence is numeric and the Option entry (IS, 
column 18) is not O or blank. 

I 124 I The input record Resulting Indicator entry (IS, 
columns 19-20) is blank. 

125 I The Stacker Select entry (IS, column 42) is not 1, 
2, or blank. 

126 j An invalid input file has been specified. 

127 I The entry(s) in Position (IS, columns 21-24, 
28-31, or 35-38) contains a nonnumeric character. 

128 j The Not entry (IS, column 25, 32, or 39) is not N 
or blank. 

129 I The C/Z/D entry (IS, columns 26, 33, or 40) is not 
C, Z, or D. 

130 I Field name type specification out of sequence 
(first in deck, after invalid file name, or AND/OR 
specifications) . 

131 i The Field Name entry (IS, columns 53-58) is not 
left- j ustif led . 

132 j The Field Name entry (IS, columns 53-58) begins 
with a numeric character- 



RESULT 
Card not processed. 

Card not processed. 

Card not processed. 

Card not processed. 

Card not processed. 

The Filename entry is assumed. 

AA is assumed. . 

The numeric sequence equal 
to the previous numeric 
sequence is assumed. 

Sequence equal to previous 
numeric sequence is assumed. 

N is assumed. 
O is assumed. 
00 is assumed. 
Blank is assumed. 



No immediate action taken. 
is assumed. 

N is assumed 

C is assumed. 

Card not processed. 

Card not processed. 
Card not processed. 



J 
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NOTE! 
133 

134 

135 

136 

137 

138 

139 

140 

141 

142 
143 

144 

145 

146 

147 

148 

149 

150 

151 
159 
L x«. 



CAUSE OF ERROR 

The From entry (IS, columns 44-47) and/or the To 
entry (IS, columns 48-51) is blank. 

The From entry (IS, columns 44-47) and/ or the To 
entry (IS, columns 48-51) contains a non- numeric 
character. 

The input field length ( From and To columns 44-51) 
is less than 1. 

Packed input field length (From and To, columns 
44-51) is greater than 8. 

The Packed entry (IS, column 43) is not P or 
blank. 



RESULT 
0001 is assumed. 

jO is assumed. 

Field length of 1 is assumed. 
I Field length of 8^ is assumed. 
P is assumed. 



The Decimal Positions entry (IS, column 52) is notjo is assumed, 
niimeric or blank. 



The numeric field is greater than 15 bytes in 
length. 

The Control Level entry (IS, columns 59-60) does 
not contain an L in column 59. 

The Control Level entry (IS, columns 59-60) does 
not contain a numeric character in column 60. 

Column 61 (IS) does not contain C or M. 

The Matching Fields or Chaining Fields entry (IS, 
column 62) is not numeric. 

The Matching Fields entry (IS, coliimns 61-62) 
contains a matching value greater than 3. 

Columns 65-68 (IS) contain numeric indicators for 
a nonnumeric field. 

Ihe alphameric field is greater than 256 bytes in 
length. 

^ Sterling field is indicated with a decimal 
position greater than 3. 

^ Sterling field is indicated without a decimal 
position specified. 

Record identification specification is out of 
order, or no fields are indicated for a given 
record. 

No Decimal Position is indicated for a packed 
input field. 

From , To, and Position entries (IS) contain 0000 . 

A field name beginning with TAB is not a table 
name. 



Field length of 15 is assumed. 

|L in column 59 is assumed. 

1 is column 60 is assumed. 

M is assumed. 
|1 is assumed. 

03 is assumed. 
{Indicators are ignored. 
I Length of 256 is assumed. 

3^ is assumed. 

jO is assumed. 

I No immediate action taken. 

is assumed. 

0001 is assumed. 
Card not processed. 
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I NOTE I 
160 
161 
162 

163 
1164 

165 

166 

167 

168 

169 

170 
171 

172 
173 
174 
175 
176 
177 
178 

179 

180 






CAUSE OF ERROR 

The Form Type entry (Column 6) should be O. 

The specification type cannot be determined. 

The Filename entry (OF, columns 7-14) is invalid, 
not present, or undefined. 



RESULT 
I Card not processed. 
I Card not processed, 
jcard not processed. 



The H/D/T entry (OF, column 15) is out of order. JH is assumed. 

The Type H/D/T entry (OF, column 15) is not H, D, |H is assumed, 
or T. 

The Output Indicators entry (OF, columns 23-31) isjOO is assumed, 
not present in an OR- relationship - 

The Output Indicators entry (OF, columns 23-31) is|Card not processed, 
not present in an AND-relationship. 



Coltimns 32-70 (OF) contain entries, but should be 
blank. 

The Field Name entry (OF, columns 32-37) is not 
left- just if ied . 

The Output Indicators entry (OF, columns 23-25, 
26-2 8, or 29-31) contain an inveilid indicator. 

The OR card or the AND card is out of order. 

Field type specification, when column 15 is blank, 
is not preceded by a valid record identification 
s peci f ica t ion . 

Columns 7-22 (OF) contain entries, but should be 
blank. 

Leading and/or closing quote signs in column 45 
and 70 (OF) are not present. 

The Zero Suppress entry (OF, column 38) contains 
an invalid or incorrectly used entry. 

The Blank After entry (OF, column 39) contains an 
invalid or incorrectly used entry. 



[Columns 32-70 are ignored, 

[Card not processed. 

I Blanks are assumed. 

Card not processed. 
I Card not processed. 

jColumofis 7-22 are ignored. 
[No editing is performed. 
i Blank is assumed. 
Blank is assumed. 



The Packed Field entry (OF, column 44) contains an|Blank is assumed, 
invalid or incorrectly used entry. 



In the AND-relationship, columns 17-22 (OF) con- 
tain entries, but should be blank. 

The End Position in Output Record entry (OF, 
columns 40^43) is not present, not numeric, or 
incompatible with literal or edit word. 

The Constant or Edit Word entry (OF, columns 
45-70) do^ not contain the required leading 
elnd/or closing quote signs. 



I Columns 17-22 are ignored. 



jCard not processed. 



I Card not processed. 



-X-. 



The numeric Resolt Field entry (CS, columns 43-48) | Card not processed, 
has a length greater than 15 bytes. 



-J 



J 
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NOTE 
181 

182 

183 

184 

185 
186 



187 

188 

189 

190 
191 

192 
193 
194 
195 

196 
197 



CAUSE OF ERROR 

Incorrect alphameric or numeric £ield(s) have been 
specified for this Move Zone operation. 

In the Alphameric Ccanpare operation, field lengths 
greater than 40 must be equal. 

The Result Field entry (CS, columns 43-48) con- 
tains an undefined field name. 

The Field Name entry (IS, columns 53-58, or OF, 
columns 32-37) contains an unreferenced field name 
or table name. 

The Field Name entry (IS, columns 53-58; or OF, 
columns 32-37) contains a roultidefined field name. 

An arithmetic operation is specified in Operation 
(CS, columns 28-32) with an alphameric factor in 
Factor 1 (CS, columns 18-27), Factor 2 (CS, 
columns 33-42), or Result Field (CS, columns 
43-48). 

A Compa re operation is specified in Operat ion (CS, 
columns 28-32) ccanparing an alphameric field with 
a numeric field. 

The result field length specified in Field Length 
(CS, columns 49-51) may be too small to contain 
the true result. 

The entries in Factor 2 (CS, column 33-42) and 
Result Field (if specified) must be table names 
when the LOKOP operation code is used. 

EXTCV is not followed by the required operation 
code (KEYCV) or is not specified properly. 

In the TESTZ operation, a numeric field has been 
specified as the entry in Result Field (CS, 
columns 43-48). 

The label of the TAG operation and the correspond- 
ing GOTO are not in Detail or Total calculations. 

The Ha If -Ad just entry (CS, column 53) is incompa- 
tible with the result field decimal length. 

The lengths of Factor 1 and Factor 2 are not equal 
for the LOKOP operation. 

EXTCV operations must be the first to appear in 
the calculation specifications and no more than 4 
are allowed. 

The MVR operation is not preceded by DIV opera- 
tion. 

The DIV operation containing an entry in Half- 
Adlust (CS, column 53) is followed by an MVR 
operation. 



RESULT 
Card not processed. 

Field length of j40 is assumed. 

Card not processed. 

No inonediate action taken. 

No immediate action taken. 
Card not processed. 



Card not processed. 



No immediate action taken. 



Card not processed. 



KEYCV card not processed. 



Card not processed. 



No immediate action taken. 



Half- Adjust entry is ignored. 



Card not processed. 



Card not processed. 



MVR operation is ignored. 



MVR operation is ignored. 
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NOTE I CAUSE OP ERROR 

198 I In the LOKOP operation. Factor 1 and Factor 2 are 
not both alphameric or both numeric fields. 

199 I HIGH and LOW resulting indicators are specified 
for the LOKUP operation. 

200 j No primary file is stated. 

201 I The Form Type entry does not contain F, E, C, or 
I. 

202 j The i'ilename entry (FDS, columns 7-14) is invalid. 

203 I More than 10 filenames specified. 

204 I The Filename entry (FDS, columns 7-lU) is not 
referenced. 

205 I The Symbolic Device entry (FDS, columns 47-52) is 
invalid. 

206 j The Device entry (FDS, columns 40-46) is invalid. 

207 I The Filenan^ entry (FDS, columns 7-14) is multi- 
referenced. 

208 I The file name is multi defined. 

212 I Undefined Resulting Indicator. 

213 I Unreferenced Resulting Indicator. 

214 1 The maximum number of indicators has been exceed- 
ed. 

219 ] Undefined field name. 

220 I conversion label unreferenced. 

221 I Sura of Hatching Field lengths incompatible with 
other record type(s>. 

222 I Table Name multidefined. 

223 I Matching field hierarchy violated. 

224 1 Split Chaining Fields improperly specified. 

225 I Split Control Fields improperly specified. 

226 j Split Matching Fields are not permitted. 

227 I The Matching Field lengths are incompatible with 
other record type (s) . 

228 j The Control Field lengths are incompatible with 
Other record type ( s) . 

229 i The Chaining Field lengths are inc<xnpatible with 
other record type(s). 



RESULT 
Card not processed. 

LOW indicator is ignored. 

Job is terminated. 
Card not processed. 

Card not processed. 

Additional cards not 
processed. 

No immediate action taken. 

Job is terminated. 

Job is terminated. 

No immediate action taken. 

Card not processed. 
No immediate action taken. 
No immediate action taken. 
Job is terminated. 

No immediate action taken. 
No immediate action taken 
No inonediate action taken. 

No immediate action taken. 
No inaoediate action taken. 
No immediate action taken. 
No immediate action taken. 
No immediate action taken. 
No immediate action taken. 

No immediate action taken. 

No immediate action taken. 



._j 
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NOTE 
230 

231 
232 

233 

234 

235 
236 

237 

238 
239 
240 

241 
242 
243 

244 
245 

246 
247 
L_ i 



CAUSE OF ERROR 

The sum of the Control Field lengths is greater 
than 256. 

Field area exceeds record size. 

Printer file record is blank in colianns 17-22 
(OF). 

The stacker Select entry (OF, column 16) is inval- 
id. 

The Space Before entry (OF, column 17) is invalid. 



The Space After entry (OF, column 18) is invalid. 

The Skip Before entry (OF, columns 19-20) is 
invalid. 

The Skip After entry (OF, columns 21-22) is inval- 
id. 

The field to be packed is not numeric. 

The field to be zero- suppressed is not numeric. 

The Sterling option is requested on a nonnumeric 
field. 

Edit word is too small for the field. 

The field to be edited is not numeric. 

Both fixed and floating dollar sign have been 
specified. 

Both CR and - used for CREDIT. 

The output specifications are not present or ax'e 
invalid for this program. 

Page indicators are not numeric. 

The field length is greater than the field End 
Position indicates. 



RESULT 
No immediate action taken. 

No immediate action taken. 
Space After of 1 is 






assumed. 

No immediate action taken. 



Space Before of 1 is 
assumed. 



1 is assumed. 
Blanks are assumed. 



Blanks are assumed. 



No immediate action taken. 
No immediate action taken. 
No immediate action taken. 

No immediate action taken. 
No immediate action taken. 
No immediate action taken. 

No immediate action taken. 
Job is terminated. 

No immediate action taken. 
No immediate action taken. 
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SAMPLE PROGRAMS 



Three complete san^le programs are included 
in this section. 



SAMPLE PROGRAM ONE 



The input file in the first program con- 
sists of punched cards. Each card in the 
file contains a data record that includes 
from one to eighty characters of informa- 
tion. Each data record represents a purc- 
hase made from the reporting firm by a 
customer. The types of information and the 
card columns in which eacdi appears are 
shown in Figure 97. Figure 98 gives the 
complete listing resulting from the proc- 
essing of this sample program. 



The labels assigned to the fields into 
which the object program will place the 
information are as follows: 



j Field 
Customer Name 
Invoice Date - Month 
Invoice Date - Day 
Invoice Number 
Customer Number 
Customer Location 
Customer Location 
Invoice Amount 



I Label | 
NAME I 
MONTH 
DAY 
INVNO 
CUSTNO 
STATE 
CITY 
INVAMT 



To produce an object program capable of 
writing the report shown in Figure 98 (Part 
3) , the programmer must prepare a source 
program as shown in Figure 99. The entries 
in the RPG specifications sheet are des- 
cribed here. 
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Figure 97. Input File-Card Format 
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DIAGNOSTIC MESSAGE EXPLANATIONS 
NOTE 188 RESULT FIELD LENGTH, COL. 1*9-51, MAY BE TOO SMALL TO CONTAIN TRUE ANSWER, 

KEY ADDRESSES OF OBJECT PROGRAM 
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•Figure 98, Complete Listing of Sample Program One (Part 2 of 3) 



BOS/360 RPG (8K Disk) 1«»5 





ACCOUNTS 


R E C E I 


V A B L E 


REGIS 


T E R 








CUSTOMER 
NUMBER 


CUSTOMER NAME 


LOCATION 
STATE CITY 


INVOICE 
NUMBER 


INVOICE 
MO 


DATE 
DAY 


INVOICE 
AMOUNT 


10712 


AMALGAMATED CORP 


33 


61 


11603 


11 


10 




389.25 
389. 25* 


11315 


BROWN WHOLESALE 


30 


231 


12324 


12 


28 




802.08 


11315 


BROWN WHOLESALE 


30 


231 


99588 


12 


1U 




261.17 
1,063.25* 


11897 


FARM IMPLEMENTS 


U7 


77 


10901 


10 


18 




27.63 
27.63* 


18530 


BLACK OIL 


16 


67 


11509 


11 


8 




592.95 


18530 


BLACK OIL 


16 


67 


12292 


12 


23 




950.97 
1,5U3.92* 


20716 


LEATHER BELT CO, 


36 


U71 


12263 


12 


17 




121.75 
121.75* 


29017 


GENERAL MFG CO 


6 


63 


11615 


11 


lU 




UU0.12 


29017 


GENERAL MFG CO 


6 


63 


11676 


11 


23 


$ 


722.22 
1,162.3U* 


2905U 


A-B-C DIST CO 


25 


39 


9689 


9 


11 


i 


6U5.40 


2905U 


A-B-C DIST CO 


25 


39 


11605 


11 


11 


$ 


271.69 


2905U 


A-B-C DIST CO 


25 


39 


1223U 


12 


lU 


$ 

$ 


559.33 
1,U76.U2* 
5,78U.56*» 



Figure 98. Coi^lete Listing of Saiople Program One (Part 3 of 3) 



1<I6 



IBM 



INTERNATIONAL BUSINESS MACHINES CORPORATION 

REPORT PROGRAM GENERATOR FILE DESCRIPTION SPECIFICATIONS 

IBM System/360 



ProgroiT 
Progran 



Punching 
Initryction 


Graphic 


■ 














PuncK 

















m 



Line 

3 4 5 


s. 

E 


Filename 

7 e 9 10 n 12 13 14 




Fil 












Mode of Processing 


1 

39 


Device 

40 41 42 43 44 45 46 


Syinbolic 
Device 

47 48 49 50 51 52 


z 

1 

53 


Name of 
Label Exit 

54 55 56 57 58 59 


Extent Exit 
for DAM 

60 61 62 63 64 65 


Comments 

66 67 68 69 70 71 72 73 74 




28 






15 




'ile Designation 




Address Field 


a. 
16 




End of File 


29 30 




Record Address Type 


E 




Sequence 


31 


Type of File 


< 

18 










Frie Format 


32 


Overfl 


ow Indicator 


> 


Block 
length 

20 21 22 23 


Record 
length 

24 25 26 27 


33 34 


Key Field 
Starting 
Location 
35 36 37 38 


^i$ 


F 


INPUT 


I 


P 


E 




F 


80 


8(/i 
















READ40 


sysiPj\ 










42iii 


F 


OUTPUT 











F 


152 


132 










OF 






PRINTER5YSLST 










3 


F 













































IBM 



INTERNATIONAL BUSINESS MACHINES CORPORATION 

REPORT PROGRAM GENERATOR INPUT SPECIFICATIONS 

IBM System/360 



Ptogri 
Progri 



Punching 
Instruction 


Grophic 
















Punch 






.. 


.. 









CD 



75 76 77 78 79 80 



Line 
3 4 5 


1 

E 

6 


Filename 

7 8 9 10 11 12 13 14 


1 
1 

15 16 


j 

z 


g 
o 

18 


1 

"5 
19 20 


Record identification Codes 


1 

i 
1 

42 


g 

-0 

s. 


Fie 


Id 


1 

52 


Field Name 

53 54 55 56 57 38 


1 


o 
2 -S 

■i-i 
11 

61 62 


ae 
63 64 




Field 




Sterling 

Sign 
Position 

71 72 73 74 


1 


2 


3 


Location 




Position 

21 22 23 24 


Z 

z 

25 


26 


D 
27 


Position 

28 29 30 31 


z 

z 

32 


Q 

33 


s 

34 


Position 

35 36 37 38 


Z 

z 

39 


40 


ti 
J 


From 

44 45 46 47 


To 

48 49 50 51 


Plus 
65 66 


Minus 


Zero 
Blank 

69 70 


(^i$ 




INPUT 


AA 






0i 


1 




z 


- 












































$20 










































8 


29 




NAME 
















$30 










































3<i 


31 


d) 


MONTH 
















$4$ 










































32 


33 


<l> 


DAY 
















05p 










































34 


38 





INVNO 
















M 










































39 


43 


^ 


CUSTNO 


LI 














i>70 










































44 


45 





STATE 
















080 










































46 


48 


<l> 


CI TY 
















^9(j, 










































74 


80 


2 


INVAlVfT 
















1 

































































IBM 



Progrc 
Progri 



INTERNATIONAL BUSINESS MACHINES CORPORATION 

REPORT PROGRAM GENERATOR CALCULATION SPECIFICATIONS 

IBM System/360 



Punching 
Instruction 


Graphic 
















Punch 

















m 



Line 
3 4 5 


E 

£ 

6 


1? 

i 

7 8 


Indicators 


Factor 1 

18 19 20 21 22 23 24 25 26 27 


Operation 

28 29 30 31 32 


Factor 2 

33 34 35 36 37 38 39 40 41 42 


Result Field 

43 44 45 46 47 48 


Field 
Length 

49 50 51 


1 
1 

i 

52 


] 

X 

< 

53 


Resulting 
Indicators 


Comments 

60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 


A 


d Ar 


d 


Plus 


Minus 


Zero 
Blank 


Compare 


High 
1>2 


Low 
1<2 


Equal 
1=2 


z 

9 : 10 11 


Z ; 

12 13 14 


o 
Z 
15 16 17 


54 55 


56 57 


58 59 


410 


C 




01 






INVAMT ' 


ADD 


TOTAL 


TOTAL 


8 


2 










' : , j i i j 1 


0iL0 


c 




4i 






INIVAMT 


ADD 


GRPTOr 


GRPTOT 


8 


2 










,';;,, 1 1 1 1 j i 


3 


c 
















: ! ■ ■ 














1 . i ! 1 i i 1 



Figure 99. RPG Specification Sheets — Program One (Part 1 of 2) 
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FILE DESCRIPTION SPECIFICATION SHEET 



Tv«> files (Input and Output) are described 
on this sheet. The input file INPUT 
(columns 7-11) is the primary file (column 
16). It causes the end-of-job condition 
when it is depleted (column 17). The input 
records are fixed in length (column 19); 
the block length is 80 (columns 22-23) ; and 
the records are 80 characters in length 
(columns 26-27). 

The output file OUTPUT is also defined 
on the file description sheet. The format 
is fixed length; the block length is 132 
and the records are 132 characters in 
length. The entry OF in columns 33-3U 
indicate that the Output File defined on 
the line is to cause the overflow condi- 
tion. 



page (IP) or overflow conditions (OF). The 
OR entered in columns 14 and 15 of the 
second line allows for printing on the 
first page or overflow. The other heading 
lines are to print on these conditions. 



When output indicator 01 is on, the 
field entered in Field Name will print in 
the positions indicated in columns 40-43. 
Zero suppression occurs on CUSTNO, STATE, 
CITY, INVNO, MONTH, and DAY. 



The total lines are to print whenever 
control fields LI or LR are on. The group 
total GRPTOT prints when LI is on, and 
after it is printed, the contents of GRPTOT 
are blanked out. The final total is print- 
ed when the LR (last record) indicator is 
on. 



INPUT SPECIFICATION SHEET 



The input file has a sequence of AA, and if 
column 1 contains the zone of a minus, 
resulting indicator 01 is turned on (as 
indicated by the entries in 19-20, 24, and 
26-27) . The locations of the fields which 
contain the input data are defined in 
columns 46-47. The names of the input 
fields are entered in columns 53-58. 
Whenever a new customer is read in, control 
level 1 is turned on (columns 59-10). 



CALCULATION SPECIFICATION SHEET 



The contents of the field TOTAL are added 
to the contents of the field INVAMT, and 
the result is stored in TOTAL. The result 
field has a length of eight positions, and 
two positions are reserved for the decimal 
portion. The field GRPTOT is added to 
INVAMT, and the result is stored in GRPTOT 
which is eight positions long, and has two 
decimal positions. 



OUTPUT-FORMAT SPECIFICATION SHEET 



OUTPUT is the name of the file to which the 
records defined on the line belong, and 
OUTPUT is entered under Filename on the 
first line of the sheet. In column 15 the 
output types H, D, and T are entered to 
designate the heading, detail, and total 
lines. 

The first heading line, ACCOUNTS RECEI- 
VABLE REGISTER, prints either on the first 



SAMPUE PROGRAM TWO 



This is similar to the previous prograun. 
In this example, however, two input files 
are used. The Transacticai File is a card 
file with fields as shown in Figure 96 of 
the previous program. Another input file 
(Master customer File) , which is on tape, 
contains information about the firm's cus- 
tomers (Figure 100). The fields contained 
in the two input files follow: 



Master Customer File 
(MASTERIN) 



Transaction File 
(IRAN SIN) 




Process 

Matched 

Records 




New Master Customer File 
(MASTEROT) 



Printed 
Report 



Figure 100. Sample Program Two 
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Transaction File 



Master Customer File 



L_ 
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name 
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City 

State 
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balance 

Date of 
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purchase 
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MASCTY 
MASTAT 
MASBAL 

PAYDAT 
PAYPUR 
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Columns 
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1-5 

6-27 

28-46 
47-57 
58-62 
63-70 

71-76 
77-82 



The program is to process the master 
customer file, using records from the tran- 
saction file, to produce printed receipts. 
The master file is updated, by producing a 
new master customer file. The coding 
required for this program is shown in Fig- 
ure 101. 
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FILE DESCRIPTION SPECIFICATION SHEET 



The four files are defined on this sheet. 
The two input files TRANSIN and MASTERIN 
are defined, and the two output files MAST- 
EROT, which is the updated master file, and 
MASTLIST, which is the printed report, are 
defined on the file description sheet. 
TRANSIN is designated as the secondary file 
because it may not contain transactions 
involving all the custc«ners on the master 
customer file. TRANSIN is ascending in 
order. It has fixed-length records which 
are 80 characters long. The block length 
is 80. 

MASTERIN is the primary file. If the 
transaction file does not have a corres- 
ponding customer number (specified by the 
matching fields specification on the input 
sheet) the master file is processed. Proc- 
essing continues until all the records in 
the roaster customer file have been proc- 
essed (indicated by the E in column 17), 
The input records contained in the roaster 
customer file are ascending in order, fixed 
in length, and have a block length of 300. 
Each record is 100 characters in length. 

Note : A blank in column 53 indicates 
that there are no labels in the input 
file. 



selected into the 2 pocket (column 42). 
The locations of the input records and 
their labels are defined in columns 46-58 
of the sheet. 



The field CUSTNO (customer number) has 
entries in columns 59-60 (Control Level) 
and columns 61-62 (Matching Fields) of the 
Input Specification sheet. Whenever a new 
customer number is read in, control level 1 
(LI) is set on. This condition is tested 
on the output- format specification sheet to 
govern printing of total lines and to pro- 
duce the updated customer file. The entry 
in matching fields specifies that customer 
number will be used to match another field 
(MASNUM) in the MASTERIN file. 



The fields INVAMT and AMTPD contain 
entries in column 63-64. Entering 02 in 
this column indicates that whenever result- 
ing indicator 02 is on, the field INVAMT 
will be used for input data. Whenever 03 
is on, the field AMTPD will be used. 



The first card in the transaction file 
is a data card. It is assigned sequence 
BB. Whenever column 1 contains a D, indi- 
cator 04 is turned on. Tlie date is con- 
tained in columns 2-5 of the card. 



The file MASTLIST is the printed report. 
The format is variable. The length of the 
records can be 132. The overflow entry in 
columns 33-34 indicate that the overflow 
condition is to occur on the MASTLIST prin- 
ter. 

The output file MASTEROT is a tape file 
which contains the updated master customer 
records. The output records are fixed in 
length, and are 100 characters in length. 
The block length is 300. 

Note ; A blank in column 53 indicates 
that there are no labels in the output 
file. 



MASTERIN I The tape input file that con- 
tains information about the firm's custom- 
ers is assigned sequence AA. The first 
entry under field name defines the entire 
record. This entry (RECORD) is made to 
enable the entire record to be referenced 
on the Output-Format Specification sheet. 
MASNUM corresponds to CDSTNO in the tran- 
saction file. Whenever a new master number 
is read in, LI is setV The entry Ml indi- 
cates that the master number will be 
matched with the customer number in the 
transaction file. 



INPUT SPECIFICATION SHEET 



CALCULATION SPECIFICATION SHEET 



The two input files TRANSIN and MASTERIN 
are defined on the Input Specification 
sheet. 

TRANSIN ; The input records may be obtained 
from three types of cards. Sequence AA has 
been assigned to two types. If card column 
1 contains the zone of a minus, resulting 
indicator 02 is turned on. If card column 
1 contains the zone of a plus and no digit 
4 underpunched, indicator 03 is turned on. 
The cards that have a minus in columji 1 are 



Whenever the matching record indicator MR 
is on and indicator 02 is on, the contents 
of the field INVAMT are added to the MAS- 
BAL. The result is stored in MASBAL. The 
date is moved to the field PAYDAT. 

Whenever the matching record indicator 
MR is on and indicator 03 is on, AMTPD is 
subtracted from MASBAL, and the result is 
stored in MASBAL. The date is moved to 
PAYPUR. 
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OUTPUT-FORMAT SPECIFICATION SHEET 



The output file MASTEROT is the updated 
tape file. The entries in output indica- 
tors allow for the following. Whenever 
conditions 01 and NMR are satisfied 
(resulting indicator 01 is on and no match- 
ing record is present) , the entire tape 
input record will be written out on tape. 
This condition results because there was no 
corresponding customer number in the tran- 
saction file for the master cxistomer num- 
ber. 

To keep the master customer file com- 
plete, the old input record is written out 
on the updated tape file when no informa- 
tion is present in the transaction file. 

If, however, LI and MR are on, the input 
record is written out on tape. 'The entire 
record is written, but the fields MASBAL, 
PAYDAT, and PAYPUR contain the new entries 
based on the calculations. By coding the 
entries in this way, the new information 
for MASBAL, PAYDAT, and PAYPUR is entered 



on the master customer file, but the 
customer' s name and address are retained. 

The specifications for the printed 
report are listed under the name of the 
output file MASTLIST. 



SAMPLE PROGRAM THREE 

The third sample program (Figures 102 and 
103) illustrates some of the more complex 
capabilities of PRG. 

1. Processing chained records on a Direct 
Access Storage Device (DASD) * 

2. Updating records on a DASD. 

3. Multiple input and output files. 

4. Creating exception records 

5. Providing for processing vrtien a record 
in the chained file is missing. 
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Figure 103. Specifications for Sample Program Three (Part 4 of 4) 



FILE DESCRIPTION SPECIFICATIONS 



The primary input file, designated by a P 
in column 16, is on the card reader and is 
labeled CARDIN. This card file also acts 
as a transaction file for the ii^ating of 
the inventory records contained on the file 
labeled INVFIL. The in column 15 of the 
specification for INVFIL indicates that 
this DASD file will be updated (used for 
both input and output) . The file is organ- 
ized under direct access management, indi- 
cated by the D in column 32, and will be 
processed randomly as specified in column 
28. 



The E in column 17 of the CARDIN file 
description entry directs the program to 
end execution when the last record of the 
CARDIN file has been processed. The E in 
column 39 indicates that a file-extension 
specification has been coded for the CARDIN 
file. 



The output files are an exception card 
file labeled CARDOOT and the printed tran- 
saction report labeled PRINTOUT. 

CARDIN and CARDOUT consist of 
80-character records. INVFIL has a block 
length of 125 characters and a record 
length of 125 characters. Record length 
for PRINTOUT is variable, with a maximum of 
132 characters. 



FILE EXTENSION SPECIFICATIONS 



The file- extension sheet id^itifies CARDIN 
as the chaining file, indicating that 
record sequence CC contains the chaining 
field CI. INVFIL is the diained file and 
CONRTN is the RPG internal label of the 
specifications on the Calculation Specifi- 
cation sheet for the external conversion 
routine that processes the chaining field 
to obtain the track address in the DASD 
file. 
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INPUT SPECIFICATIONS 



ODTPOT SPECIFICATIONS 



The input card and DASD files are described 
on the Input Specification sheet. Each 
field that will be used is defined. The CI 
in columns 61-62 of the transaction card 
file designates the field labeled DTLPAR as 
the chaining field. The conversion routine 
CONRTN, indicated on the Calculation Speci- 
fication sheet, will make the DTLPAR field 
available to the user's external conversion 
routine. 



The PRINTOUT file's heading information can 
be printed under control of either result- 
ing indicator 02, which is set for the date 
card (the first card in the CARD IN file), 
or overflow (OF). The OF indicator will 
govern all heading printing after the first 
page. The entry PAGE in line 030 causes 
the page number to be updated automatically 
for each new page. 



CALCULATION SPECIFICATIONS 



Two sets of calculation specifications are 
d^cribed. After the label CONRTN, the 
operation code EXTCV is used to indicate 
that the conversion routine is to be per- 
formed. ADDCON is the symbolic address of 
the external ccm version routine. Note that 
the address can be up to eight positions 
long. The external routine may be in the 
relocatable library so that it can be auto- 
matically retrieved by the Basic Operating 
System program. The routine could also be 
punched in cards that follow the RPG cards. 

The operation code KEYCV states that the 
record )cey can be obtained directly from 
the field DTLPAR. This is the first entry 
on the Calculation Specification sheet. 

The calculations in lines 030-070 
require the presence of matching chaining 
(CARDIN) and chained (INVFIL) records. 
This condition is indicated by the simulta- 
neous setting of resulting indicators 01 
and 03. The ONHAND field from the INVFIL 
record is reset added to a work area 
(SAVE). Data fields RECPTS and RETURN from 
CARDIN records are added to SAVE; ISSUES 
are subtracted. When each input card for 
an INVFIL record is processed, the result- 
ing new ONHAND field in SAVE is ccMnpared to 
the minimum balance. If ONHAND equals the 
minimum, resulting indicator 05 is set on. 
If ONHAND drops below the minimum, result- 
ing indicator 01 is set on. 



The detail line described by the entries 
in lines 150 of Figure 103 (Part 3) through 
050 of Figure 103 (Part 4) requires the 
presence of both the CARDIN and INVFIL 
records (resulting indicators 01 and 03 
on) . If resulting indicator 04 is on, the 
words BELOW MINIMUM indicate the stock 
violation. If indicator 05 is on, the 
message EXPEDITE is added. 



The output line described in PRINTOUT 
entries 060-090 is the message printed when 
the error condition of a CARDIN record, and 
no corresponding INVFIL record occurs. 
This condition is identified by resulting 
indicator 01 being off when indicator 03 is 
on. 

The exception file CARDOUT will have a 
card punched for each transaction that 
results in a be low- minimum or at-minimum 
stock level. These cards will contain the 
part number and description, vendor number, 
date, and the E or B code for EXPEDITE or 
BELOW MINIMUM. Below-rainimum cards, iden- 
tified by the simultaneous ON settings of 
indicators 01, 03, and 04, will be selected 
to stacker 4. At-minimura cards, with indi- 
cators 01, 03, and 05 on, will be selected 
into stacker 8. 

Lines 180 and 190 provide for the updat- 
ing and writing out of the INVFIL records. 
If indicators 01 and 03 are both on, indi- 
cating that the INVFIL record has been 
updated by a CARDIN transaction, the new 
ONHAND is moved into its INVFIL location 
from the work area SAVE, and the record is 
written. 
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APPENDIX A: INDICATOR CHART 



Indicators 


Where Specified 


Where Used 


Turned On 


Turned Off 


Notes 


Resulting Indicator 
00 


Internal 


Output Indicators on 
Output Specifications 
(Columns 24 - 25, 
27 - 28, 30 - 31) 


This indicator is always 
ON 


Can never be turned 
OFF 




Resulting Indicators 
(01-99) 


Input Specifications 
(Columns 19-20) 


Indicators on Calcula- 
tion Specifications 
(Columns 10-11, 13-14, 
16-17) 

Output Indicators on 
Output Specifications 
(Columns 24-25, 
27-28, 30-31) 


When specified record 
type has been read and 
is ready for processing . 


Before the first record 
is read on the next 
processing cycle. 


Turning OFF and ON can also 
be accomplished by using 
SETON and SETOF operation 
codes . 


Calculation Speci- 
fications (Columns 
54-55, 56-57, 
58-59) 


Same as above . 


Whenever the specified 
field status condition 
is satisfied . 


The next time that 
this field status is 
to be tested 


Same as above 


Field Indicators 
(01-99) 


Input Specifications 
(Columns 65-66, 
67-68, 69-70) 


Same as above 


Same as above 


Same as above 


Same as above 


Halt Indicators 
(HI - H9) 


Input Specifications 
(Columns 65-66, 
67-68, 69-70) 

Calculation Speci- 
fications (Columns 
54-55, 56-57, 
58-59) 


Same as above 


Same as above 


Can only be turned 
OFF by SETOF opera- 
tion code . See Note. 


If these indicators remain ON, 
the object program will term- 
inate before reading the next 
record. 


Control Level 
Indicators 
(LI - L9) 


Input Specifications 
(Columns 59-60) 


Same as above and 
Calculation Specifi- 
cations (Columns 7-8) 


When the value In a control 
field changes. All indi- 
cators of the lower levels 
are also turned ON. 


Before the first record 
is read on the next 
processing cycle. 


Turning OFF and ON can be 
accomplished by using SETON 
and SETOF operation codes . 


LO 


Internal 


indicators on Calcula- 
tions Specifications 
(Columns 10-11, 13-14, 
16-17) 

Output Indicators on Out- 
put Specifications (Cols. 
24-25,27-28,30-31) 


This indicator is always 
ON. 


Can never be 
turned OFF. 




LR 


Internal 


Same as above 


After processing the last 
record of the last file. 


Same as above 


All Control Level Indicators 
(Lr-L9) ore also turned ON 
when the LR is turned ON. 


MR 


Internal 


Same as above 


When multiple input files 
and tfie matching fields 
specification are used, this 
indicator is turned ON if 
a secondary file record 
matches the primary file 
record . 


After all total records 
have been put out for 
the last secondary 
record of a matching 
group. 




Overflow Indicators 
OA, OF, OV 


File Description 
(Columns 33-34) 


Same as above 


When Channel 12 of the 
carriage control tape is 
sensed . 


After the detail and 
heading records are 
written. 


These indicators remain ON for 
one complete processing cycle . 


IP 


Internal 


Output Indicators on 
Output Specifications 
(Columns 24-25, 27- 
28, 30-31) 


This indicator is ON at the 
beginning of processing 
before any records are 
read. 


Before the first record 
is read. 


This indicator is used to govern 
printing of the first poge of the 
report . 



All indicators specified in columns 69 - 70 of the Input Specification sheet and columns 58 - 59 of the Calculation Specification sheet are ON at the beginning 
of processing before any records are read. This is always the case except when the operation codes COMP, LOKUP, SETON, SETOF and TESTZ are specified. 
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APPENDIX B: RPG LOGIC FLOW CHARTS 
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Detail Records 



Geti^F 



Get Input Record 
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^ Control Field Break/ 



Perform Total 

Calculation 

Specifications 
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Move Data Fields 
of Record Type 
from Input Area 
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& Detail Records > 



Get Input Record 



/Determine Record \ 
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^Control Field Break/ 
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Calculation 

Specifications 
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Records 
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/Determine Rec- \ 
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Specifications 



2. General Logic for RPG Object Program 
with a Chaining File 



Perform Detail 

Calculation 

Specifications 



1. General Logic for RPG Object Program 
with RAF File 
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(Start j 



Output Heading &y 
Detail Records 



Get Input Record 



/Determine Record , 
/Type and Check for 

fl""" 



Perform Total 

Calculation 

Specifications 



Output Total 
Records 



Move Data Fields 
of Record Types 
from Input Area 




Perform Conversion 
Routine 



Get Chained 
File Record 



Determine Rec- 
''ord Type and MoveN 
Data Fields of Record^ 
Type from Input 
Area 



J 



Perform Detail 

Calculation 

Specifications 



General Logic for RPG Object Program with Chaining File Which Requires Conversion 
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Determine Record 
Type and Check for 
Control Field Break 
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Specifications 
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APPENDIX C; STERLING ROUTINES FOR THE REPORT PROGRAM GENERATOR 



The RPG sterling routines furnish users 
with a convenient and time-saving means of 
handling sterling amounts. The presence of 
sterling fields is indicated to the RPG 
program by additional entries in the input 
and output specifications forms and in the 
control card. The file description, file 
extension, and calculation forms are not 
affected. 

Sterling input information can be rep- 
resented in two formats: IBM and BSI as 
described in the control card. The RPG 
sterling routines convert the input fields 
into a pence-format field. A pence-format 
field is a sterling amount represented in 
pence. If the output is to be printed, the 
fields are converted with shillings and 
pence printed in two positions each with 
zero suppression in effect in the tens 
position of each field. If the output is 
not printed, the output is converted to 
either BSI or IBM formats. 

Note BSI or IBM input files of one 
program must use the same code combina- 
tion throughout. 



INPUT SPECIFICATIONS 



The position of the sign must be specified 
in columns 71-7^. Enter an S in column 74, 
if the sign is in the normal position. If 
the pence field has decimal positions, the 
normal position of the sign is in the 
rightmost decimal position of the pence 
field. If the pence field has no decimal 
positions, the normal position of the sign 
is in the units position of the poui»is 
field. 

Note 1 : One of the digits 0, 1, 2, or 
3 must be entered in column 52, to 
indicate the number of required decimal 
positions . 

Note 2 : It is not permissible to use 
the same name for both a sterling field 
and a decimal field. 



Note 1 ; Shillings and p^ice are print- 
ed in two positions each, with zero 
suppression in effect in the tens posi- 
tions of each field. 

Note 2 ; If a field is defined as a 
sterling field in the input but not in 
the output specifications, the output 
will be in pence format. 

Note 3 ; The rules governing the use of 
edit control words are the same as 
those for decimal fields. 

The following features are available: 

1. Zero suppression in the pounds field. 

2. Zero suppression in the shillings 
field, if both pound and shilling 
values a*re zero. 

3. Zero suppression in the pence field, if 
pound, shilling, and penny values are 
zero. 

4. Suppression of zeros preceding signs, 
and suppression of separation marks 
between pounds and shillings, shillings 
and pence, and pence and decimals. 

Note : If column 38 of the Output- 
Format Specification sheet contains Z, 
the entire pounds field will be zero- 
suppressed. The ten's position of the 
shillings and pence fields will be 
zero- suppressed, and the sign of the 
field will be blanked out. 



CONTROL CARD 



To select the required sterling routines, 
the RPG program needs information regarding 
the input and output forniats. This 
information is entered in four columns of 
the RPG processor control card. The 
entries are: 1 for IBM Code, 2 for BSI 
Code. 



Note 3 : The sign of the field must 
contain a numeric underpunch. 

OUTPUT WHICH IS NOT PRINTED: Sterling 
output fields are specified in the same 
manner as sterling input fields. 

PRINTED OUTPUT: Insert the letter S in 
column 74 of the Output-Format Specifi- 
cation sheet. 



CALCULATION SPECIFICATIONS 



While no additional entries are required in 
this form, the user should keep in mind 
that all calculations are done in pence 
format. This must be considered when 
defining the length of result fields or 
when using Factors 1 and 2. 
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Lengths of Pence- Format Fields 



If a pence- format result field is to be 
reconverted into a Format-1 field, the 
highest amount it is permitted to contain 
is 2,399,999,999,999,999. 



BSI FORMAT; The pence option on the output 
field is as listed here: 

1-9 Pence by a 1-9 punch. 

10 Pence by a 12 punch, 

11 Pence by an 11- punch. 



EDITING OF STERLING FIELDS 



PODND STERLING FORMATS 



RPG will support, on the input and output 
fields, two standards for pence and shill- 
ing portions of sterling fields: IBM or 
BSI. Columns 17-20 of the RPG Processor 
Control Card indicate either the IBM or BSI 
formats. The formats for IBM and BSI are 
listed here. 



COLUMN 17 (STERLING-SHILLING FIELD ON 
INPOT) IBM FORMAT; Two positions are 
allowed for the shilling option in the 
input field: 00-19 for to 19 shillings. 

BSI FORMAT; The shilling option in the 
input fields is indicated as listed here: 

1-9 Shillings by a 1-9 punch. 

10 Shillings by a 12-punch. 

11-19 Shillings by a A-I punch. 

COLDMN 18 (STERLING-PENCE FIEID ON INPUT) 
IBM FORMAT; The pence option on the input 
field is as listed here: 

1-9 Pence by a 1-9 punch, 

10 Pence by an 11- punch, 

11 Pence by a 12-punch. 

BSI FORMAT: The pence option on the input 
field is as listed here: 

1-9 Pence by a 1-9 punch, 

10 Pence by a 12-punch, 

11 Pence by an 11-punch. 

COLUMN 19 (STERLING- SHILLINGS FIEID ON 
OUTPUT ) I BM FORMAT ; Two positions are 
allowed for the shilling option on the 
output field: 

00-19 for 0-19 shillings. 

BSI FORMAT: The shilling option on the 

output field is as listed here: 
1-9 Shillings by a 1-9 punch, 
10 Shillings by a 12-punch, 
11-19 Shillings by A-I punch, 

COLUMN 20 (STERLING- PENCE FIELD ON OUTPUT) 
IBM FORMAT; The pence option on the output 
field is as listed here; 

1-9 Pence by a 1-9 punch, 

10 Pence by an ll-pundti, 

11 Pence by a 12-punch. 



RPG provides for the editing of sterling 
fields, with columns '♦5-70 of the Output- 
Format Specification sheet containing the 
edit words. Each edit word is composed of 
three portions, or fields: the pounds 
field, the shillings field, and the pence 
field. The RPG program enables the user to 
make use of the following: 

1. Floating and fixed pound signs. 

2. Zero suppression of the pounds, 
shillings, and pence fields, or in any 
combination. 

3. CR and minus (-) symbols. 

4. Asterisk protection. 

5. An ampersand causes the insertion of a 
blank in the edit word. 



Rules for Forming Edit words for a Sterling 
Field 



1. An edit word must be enclosed by a set 
of single-quote symbols. 

2. At least one separator character, or 
delimiter , must be inserted between the 
pounds and shillings fields and the 
shillings and pence fields. Any char- 
acter can be used as a delimiter except 
an asterisk (*), a zero (0), a decimal 
point (.), and a comma (,). However, a 
comma is permitted within the pounds 
field, and a decimal point is accepta- 
ble within the pence field. 

3. Asterisk protection if desired must be 
specified in the pounds field. This 
provides asterisk protection in both 
the pounds field and the shillings 
field. 

4. When specifying the floating pound 
sign, there must be at least one pounds 
field position preceding the shillings 
field and following the pound sign. 

5. Zero suppression occurs in the pounds, 
shillings, and pence fields. If no 
zero is encountered in the field, the 
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entire field is zero suppressed. 
Because the fields are edited separate- 
ly, when a low-order zero is desired in 
a particular field, a zero must be 
placed in the rightmost position of 
that field where zero suppression is to 
stop. 

6. No constant information can appear in 
an edit word. 

7. The edit word must always be at least 2 
positions larger than the input field 
on which the editing is to be per- 
formed. 

8. The number of blank spaces supplied in 
the pence field of the edit word must 
be 2 greater than the number of decimal 
positions specified in column 52 of the 
Input or calculation Specification 
sheets . 

9. There must always be at least 2 posi- 
tions allowed for the shillings field 
in every edit word specification. 

10. When zero suppression is to be per- 
formed on the pence field, the user may 
wish to have the delimiter blanked out 
if the pence field is zero. To do 



this, the pence sign (d) must occupy 
the position in the edit word immedi- 
ately following the two blank positions 
in the pence field. 



The following examples illustrate valid 
edit words for sterling fields. £ denotes 
the pound sign, s the shilling sign, and d 
the pence sign. The output data to be 
edited is 005070L. 



Edit Word 


Result of Editing on Printout 


No Edifing 


005 _ 7 _ L 


Zero Suppression (No Editing) 


5_7_3 


b£0b/0b/0bCR 


£5/_7/_3CR 


bb£0 &bb &b b- 


£5 __7__3 - 


£bbb&bbSbbd- 


£_5__7S_3d - 


*bOb/bbSbbd 


* * 5 / * 7S _ 3d 


b£Ob : bb : b b & . d 


£5 : _7: _3_ . d 
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APPENDIX D: CONVERSION ROUTINE OPERATION CX5DES 



The following list shows the relationship 
between conversion routine operation codes 
and how they are specif ied- 



ICode 
EXTCV 



^ 1 



Factor 1 

Reference 
name 






KEYCV 



None 



Factor 2 

Name or 
Label of 
the user's 
routine. 



None 



Result Field 



-^ ^ 

Specifications That 
May Follow This Entry 



Label of the field 
which will contain the 
track address of the 
record. 



KEYCV 



H 






I JL 



Label of the field 
which will contain the 
key of the record to 
be located. 



Any other RPG 
calculations. 



J 
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Constants 49, 77, 79, 81 
CONTD 113 

Control Field Hold Area 50 
Control Fields 13 
Control -Level 13, 15, 50, 55 
Control Level (L1-L9) Indicators 32, 56 
Conversion Operation Codes 113, 168 
Conversion Routine Operations 65, 112, 113 



Correlation of the RPG Specification 

Sheets 29 
Creating Record Address Files 124 
Crossfooting 10 
C/Z/D 10, 28, 43 

DASD File Processing 108, 109, 112 
DASD Layout Chart 34 
Data Conversion Feature 6 
Decimal Point Location 11 
Decimal Positions 

Calculation 11, 66 

File Extension 91 

Input 13, 26, 48, 119 
Describing a Record and Its Fields to the 

System 8 
Detail Calculations 55 
Detail Labor File 9 
Detail Printing 11, 14 
Detail Records 70, 72, 101 
Detail Time 32 
Device 31, 87 
Diagnostics 132 

Direct File Organization 91, 111 
Direct Files 108, 125 
Disk Storage Concepts 105 
DIV (Divide) 60 
Division, Multiplication and 25 

Edit Words 80, 81 

Editing of Sterling Fields 166 

End of File 85 

End-of-File Card 127 

End Position in Output Record 12, 77 

Exit, General Rules for Using 101, 102 

Exit, How to Code 101 

Exit to a Subroutine 52, 103, 105 

Exit to a User's Routine 101 

EXTCV (External Conversion 

Routines) 65, 112, 113, 168 
Extent Exit for DAM 88 

Factor 1 58 

Factor 2 58, 65 

Field Description 46, 70, 75 

Field Indicators 53 

Field Length 10, 66 

Field Location 13, 47, 48 

Field Name 

Input 15, 49 
Output-Format 77, 80 
Field Name Restrictions 50 
Field Record Relation 50, 51, 53 
Field Record Relation, Using Split Control 

Fields with 50, 51 
File Description Specification 

Sheet 31, 36, 83 
File Designation 84 
File Extension Specification 

Sheet 36, 90 
File Format 85 
File Identification and Control 70 
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File Name 

File Description 83 

Output-Format 70 
File Organization 105, 106 
File Organization, Type of 86 
File Processing 105, 107 
File Processing in RPG 108 
File-to-File Program 30 
File Type 83 

Files, Maximxam Number Permitted 83 
Fixed Dollar Sign 81 
Fixed-Length Records 106 
Floating Dollar Sign 80, 81 
Form Type 38 
From 46, 47 
From Filename 90 
Function of RPG 5 
Functions, Table 65, 92, 94, 96 
Fundamentals of RPG Programming 8 



General Rules for Using Exit 
Generating Run 6 
GOTO (Branching or Go To) 6 3 
Group Indication 16, 18, 19, 
Group Printing 16, 17 



101 



76 



Half-Adjust 26, 27, 66 

Halt (H1-H9) Indicators 54, 57, 161 

Header Cards 42 

Heading Records 70, 7 2 

Hold Area, Control Field 50 

IBM Format (Sterling) 166 
Indexed-Sequential File 

Organization 106, 109, 124 
Indexed-Sequential Files 39, 108 
Indicator Chart 161 
Indicator Codes for Plus, Minus, and Zero 

or Blank 53 
Indicators 10, 56, 102 
Indicators and Fields in the Exit Routine, 

Using 102 
Input Files, Processing Multiple 116 
Input Files, Processing Single 109 
Input Specification Sheet 31, 36, 39 
Inverted Print Option 128 

Key Field Starting Location 87 
KEYCV (Record Key) 65, 113, 168 

Label 87 

Last Record (LR) Indicator 32, 56, 161 

Layout of Lines and Fields 34 

Length of Record Address Field 86 

Length of Table Entry 91 

Level Zero (LO) Indicator 56, 161 

Limits (Indexed-Sequential 

Organization) 124 
Line Identification Code 34 
Line Number 38 
Literals 58, 79 
Logic Flow Charts 162 
Logical File 105 
LOKUP (Table Lookup) 65, 97 

Machine Features Required and 

Supported 6 
Matching 116, 120 



Matching Field Holding Area 52 
Matching Field (M1-M3) 

Indicators 116, 119, 120, 161 
Matching Fields 51, 52 
Matching Fields Specified as Numeric or 

Alphameric 119 
Matching Record (MR) Indicator 119, 120, 

161 
Methods of Processing Tables 96 
MHHZO (Move High-to-High Zone) 62 
MHLZO (Move High-to-Low Zone) 62 
Minus Condition 53 

Minus Condition, Testing for 20, 23 
Minus or Low Result Field Indication 67 
MLHZO (Move Low-to-High Zone) 62 
MLLZO (Move Low-to-Low Zone) 6 2 
Mode of File Processing 85 
MOVE (Move) 61 
Move Operations 60 
MOVEL (Move Left) 61 
MULT (Multiply) 60 
Multiple File Processing 124 
Multiple Input Files, Processing 116 
Multiple Printers 73, 79 
Multiplication and Division Example 25 
MVR (Move Remainder) 60, 61 

Name of Label Exit 88 
Non-resident Supervisor 7 
Nonstandard Labels 87 
Not 

Input 43 

Output-Format 74 
Number 

File Extension 90 

Input 28, 42 
Number of Table Entries Per Record 91 
Number of Table Entries Per Table 91 
Numeric Entries 40, 41 
Numeric Fields 48, 62, 77, 119 
Numeric Literals 58 

Object Run 6 

Omitting Record Identification 45 

Operating System RPG 95 

Operation 59 

Option 29, 42 

OR Relationship 45, 47, 48, 74 

Output Indicators 12, 15, 20, 74 

Output-Format Specification 

Sheet 31, 36, 70 
Overflow Indicator 57, 72, 87 
Overflow Printing 19 

Packed 

File Extension 91 

Input 46 

Output-Format 78 
Page Number 38 
Page Numbering 78, 79 
Phase Name 127 
Physical Unit 105 
Plus Balance, Testing for 20 
Plus Condition 53 

Plus or High Result Field Indication 67 
Position of Exit in the Calculation 

Specification Sheet 101 
Position 10, 43 
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Pound Sterling Formats 166 

Preface 2 

Printer Spacing Chart 34, 35 

Printing Lines Conditioned by Overflow 72 

Problem Definition 34 

Processor Control Card, RPG 127 

Processing Multiple Input Files 116 

Processing Single Input Files 109 

Program Identification 38, 128 

Program Logic 32, 33 

Random File Organization 107 

Random Files 108 

Random Processing 107 

Randomly Processing Multiple Input 

Files 121 
Record Address Files 90, 109, 112, 
Record Identification Codes 10, 43, 
Record Identification Entries 39 
Record Identification Omission 45 
Record Key 105 
Record Length 85 
Record Sequence 90 
Records in an OR Relationship 
Register Conventions 88, 102 
Required Machine Features 6 
Result Field 10, 12, 65, 66 
Resulting Indicators 42, 56, 
Resulting Indicators, Using 
Retrieving Updated Tables 98 
RLABL (RPG Label) 63, 102 
RPG Specification Sheets 36, 37 
Rules for Creating Records Containing Table 

Data 95 
Rules for Forming Tables 96 
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60, 
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67, 74 



Sample Programs 

Sample Program One 
Sample Program Two 
Sample Program Three 

Sequence 

Input 28, 4 
File Description 
File Extension 

Sequence Checking 



143 
149 
154 



85 

91, 92 

27, 52, 85 

Sequence of Assigning Matching Fields 120 
Sequential File Organization 106, 109, 124 
Sequential Processing 107, 109 
Sequential Processing of Multiple Input 

Files 116 
SETOF (Set Indicators Off) 64 
SETON (Set Indicators On) 64 
Skip After 72 
Skip Before 20, 72 
Source Deck 6 
Source Deck Arrangement 127 
Space After 12, 15, 20, 71, 72 
Space Before 71, 72 



Specifying Constants 4 9 
Split Chaining Fields 123 
Split Control Fields 50, 51 
Stacker Select 

Input 45, 46 

Output-Format 71 
Standard Labels 88 
Sterling 54, 82, 128 
Sterling Routines 165 
SUB (Subtract) 60 
Subtraction, Addition and 10 
Supervisor, Non-resident 7 
Supported Machine Features 6 
Symbolic Device 87 
Synonyms 108 

Table File 90 

Table Hold Area 77 

Table Name 91 

Table Operations 6 5 

Tables, Methods of Processing 96 

Tables, Retrieving Updated 98 

Tables, Rules for Forming 94 

TAG (Providing a Label for GOTO) 63 

Testing for Zero, Plus, and Minus 

Balance 20 
Testing or Compare Operations 62 
Testing the Results of a Calculation 66 
TESTZ (Test Zone) 63 
To 46, 47 
To Filename 90 
Total Calculations 14 
Total Operations 14 
Total Printing, Detail and 14 
Total Records 70, 72, 101 
Total Time 32 

Turning Indicators On or Off 64 
Type H/D/T 12, 20, 71 
Type of Record Addresses 86 

ULABL (User's Label) 63, 102 

Unblocked Records 85, 129 

Update Files 83, 108 

Use of Registers 102 

Using the Calculation Specification 

Sheet 68 
Using RPG 5 
Using Tables in the Object Program 94 



Variable-Length Records 31, 106, 129 

Z-ADD (Zero and Add) 59 
Zero Condition 53 

Zero or Blank Field Indication 77 
Zero or Equal Result Field Indicator 
Zero Suppression 12, 15, 77, 166 
Zone Record Identification 43 
Z-SUB (Zero and Subtract) 60 
Zero Balance, Testing for 20, 22 
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